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Btrieve. 


The Programmer’s Choice. 
hen you're serious about application 


Wieyeezs there’s just one choice for file 
management: Btrieve. With what Computer Language calls 
“near mainframe functionality”, Btrieve sets the file 
management standard for PC applications. With Btrieve 
loaded in your PC, your programs can use simple 
subroutine calls to retrieve, store and update records. 













based for high 


performance. Performance 
is all-important, especially as 
your database grows. That’s 
why Btrieve implements the 
b-tree file structure—the 
fastest, most efficient method 
of accessing data. 





Interfaces to C, BASIC, Pascal, _ 
COBOL. Don't waste time 7” 


programming in awkward fourth generation 





you know best—and write applications the right 
way. Over 15 language 
interfaces available. 










: Help is 
Just a phone 
call away. 
Need technical 
support? You've got it! 
Btrieve users receive 30 days 
of unlimited phone support at no charge. This 
“Direct Connect” policy is renewable for a full 
year at low cost. And try SoftCraft’s free 
bulletin board for technical tips, seven days a week. 






Fault tolerant. Btrieve 
insures against database dis- 
asters. Iwo levels of fault 
tolerance guarantee data 
integrity during accidents or 
power failures—even if 
lightning strikes. No extra 
programming required. 


Suggested retail prices: 


Circle no. 113 on reader service card. trademark and Xtrj 
r1eve 1 





Oe 


Multi-user versions for 
LANs and Xenix. When your 
applications need to network, count on 
Btrieve. A single version runs on all DOS 3 
LANs, including IBM PC Network and Novell Advanced 


languages! With Btrieve, simply use the languages 


Thorough documentation, easy 
started with Btrieve is easy: the manual is packed with examples of 
every Btrieve function in BASIC, Pascal, COBOL and C. 


Database queries, report writing. Add Xtrieve™ to your Btrieve 
applications for a fully-relational DBMS. Xtrieve's menu-driven 
interface gives your users the on-line query capabilities they 
need—without programming. Add 
our report writer option to produce 
custom reports and forms. 


No royalties. 


Need we say more? 





SoffCraft 


P.O. Box 9802 #917 Austin, Texas 78766 


Btrieve, $245; multi-user Btrieve, $595: Xtri 
$595 (for report generation, add $145 for single- pane ics 


and selected distributors. Requires PC-DOS 
S @ trademark of SoftC 








Netware. Btrieve is also available for Xenix and 
multitasking operating systems such as MultiLink 
Advanced, Microsoft Windows and IBM Topview. 















Built-in security 

features. Lock up sensitive 

data with Btrieve's password protection and 
unique data encryption scheme—especially 
useful in local area networks. 
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rete i ; multi-user Xtrieve, 
user an r multi-user). Available from SoftCra 
or MS-DOS 2.X, 3.X, Xenix. Btni - f A 


eve IS a registered 
raft Inc. 1From Computer Language, Cae 1985. 


OE 




















ees 





fran 




















) Plus Series - $ 59.95 
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finaet Replay - $ 8 5 
Demo, Tutorial, and rototype Generator. 
Create Replays of actual programs, or vapor 
ware only replays. Includes Screen Genie Screen 
Editor, Word Genie Text Editor, and a Keystroke 
Editor. Insert Pop-Ups, Prompts, Prototypes, and 
Users into the demo or tutorial. 


Assembler Genie $ 59.95 
Assembly Language source code generator for including 
Screen Genie prototype screens into your actual progia 
Supports almost every language. 


| Assembly Language Programming Tools for Turbo Pascal, 
MS Pascal, or C. Make your prototypes into real programs. 


) NoBlink Accelerator - $ 49.95 


Resident Cursor Enhancer. Choose your OWM CUISOF shape, 


color(non-blinking), or speed in any program. Uses only 6K 
of memory. Great time time saver. Why mouse around? 


50 day satisfaction money back guarantee on all software. 


o order, or to obtain more information call or write 


Coens Inc. (801) 487-9662 
91 South Valley Street (suite 252) 


it Lake City, Utah 84109 NOSTRADAMUS 


: Circle no. 251 0n reader service card. 


“Amex, Master, Cod, 
\M PC, XT, AT and True Com 


2 US pays postage- 


PO, Check 
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About the Cover 
Motorola has just forged the 
68030. Is it as hot as it seems? 







This Issue 

In the beginning there were the 
8080 and the 6502—program- 
mers chose their weapons and 
the battle lines were drawn. A 
few years later, Motorola gave 
the “sixers” more power when it 
introduced its 680xx line of chips. 
Today there is a wide range of 
powerful 680xx machines—and 
some very interesting rumors 
about the future. This month we 
survey the 680xx family and ex- 
amine a modular, multitasking 
operating system, a 68K Forth- 
like interpreter, and the chal- 
lenges. of creating Amiga- and 
Mac-like user interfaces. 







Next Issue 
The choice of a text editor is 
based on many highly subjective 
considerations as well as some 
“hard” pragmatic requirements. 
In February, we'll present an 
overview of the various elements 
involved in that choice and let 


you hear what some program- 
mers have to say about their fa- 
vorite and least favorite editors. 
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YOUR 
Coes OG LANGUAGE 











LOG IN 
BIG HOLES IN 


EATING NICE 


LANGUAGES THAT ARE CAUSING THE BIGGEST 
HISTORY ARE ALSO 
OUR POCKETS. 





Whether it’s BASIC, COBOL, Programs that are easy to use. 
Pascal, “C’, or a data base manager, Programs that are a ne Ae t to 
you're being held back. write 


And to you that means true 
satisfaction. 

You've coveted those nifty pop-up 
help windows some major applica- 
tions feature. But you can’t afford 
the time and energy it takes to 


Held back because the language 
has frustrating limitations, and the 
programming environment isn’t 
intuitive enough to keep track of 
what you're working on. 

In the real world, there's pres- 


sure to do more impressive work,in — write them into your programs. 
less time, and for more clients. That’s the way it used to be. 
We've been given some incredibly So we fixed that, too. 
CLARION’s HELPER is an 


antes hardware in recent times, 
ut the languages aren't a whole lot 
better than they were 20 years ago. 
So, whatever language you have 
chosen, by now you feel it's out to 
get you — because it is. meaning you can have help for 
ure, no language is perfect, but eye field in your application. 
you have to wonder, “Am I getting nlike the other micro 
all I deserve? languages, CLARION provides 
And, like money, you'll never declarations, procedures, and 
have enough. unctions to process 
Pretty dismal, huh? dates, strings, 


We thought so, too. — screens, reports, 
_ indexed files, 


interactive utility that let’s you 
design the most effective pop-up 
help screens that you can imagine. 
And they’re “context sensitive, 


So we did something about it. 















We call it CLARION? DOS files and 
You'll call it ‘tncredible.”’ memory tables. 
Distributed on 7 diskettes, 


CLARION consists of over 200,000 
lines of code, taking 3+ years to 
hone to “world-class” performance. 

With CLARION you can 
write, compile, run and debug 
complex applications in a 
New York afternoon. 

Even if you're in Savannah. 

It gives you the power and 
S to create screens, windows 
and reports of such richness and 
clarity you would never attempt 
them with any other language. 

Because you would have to 
write the code. 

With CLARION you simply 
design the screens using our 
SCREENER utility and then 








Imagine making source ae 
changes with the CLARION EDI- 
OR. A single keystroke termi- 
nates the EDITOR, loads the COM- 
PILER, compiles the ‘program, loads 
the PROCESSOR and executes the 
Si Sin It’s that easy! 

_ Our data management capabili- 
ties are phenomenal. CLARION 
files permit any number of compos- 
uae ‘ail which are updated dynami- 


cally. 

A file may have as many keys as 
it needs. Each key may be com- 
posed of any fields in any order. 
And key files are updated when- 
ever the value of the key changes. 

Like SCREENER ee | RE- 
PORTER, CLARION’s FILER utility 
also has a piece of the CLARION 
COMPILER. To create a new file, you 
name the Source Module. Then you 
name the Statement Label of a file 
structure within it. 

FILER will also automatically 
rebuild existing files to match a 
changed file structure. It creates a 
new record for every existing rec- 
ord, copying the existing fields and 
initializing new ones. 


See. Sounds pretty com Sig huh? 


Not with ON’s docu- 
mentation and on-line help 
screens. If you are currently 
' competent in BASIC, Pascal 
s or “C” you can be writing 
CLARION applications in a 
i oe In two days you won't 
- believe the eloquence of your 
CLARION pros 
Okay, now for the oe of 
all. You can say it in CLARION 
for $295.00—plus shipping and 


handling. All you need is an IBM® PC, XT, 
AT or true compatible, with 320 KB of 
memory, a hard disk drive, and a parallel port. 
And we'll allow a full 30 day evaluation 


CLARION writes the source code period. If you're not satisfied with 
AND compiles it for you in seconds. SAY IT IN CLARION. simply return it in its 

Likewise, you can use ». original condition for a full refund. 
REPORTER to create reports. ( [ ARION "Hf you're not quite ready to take 

Remember, only CLARION can advantage of this no-risk 
recompile and display a screen or opportunity, ask for our detailed 16 
od - tienen A4ST/8 page color riage pole It a 

with no time wasted. illustrates the elegance o 

All the power and facilities you 1-800-3 53 Gna 5444 ON. Consider it a preview of 
need to write great programs, faster __ __—‘ programming in the fast lane. 
than you ever dreamed of. poe wesc ither way, the 800 call’s a freebie. 
BARRINGTON INC. 150 EAST SAMPLE ROAD POMPANO FLORIDA 33064 305/785-4555 





IBM is a registered trademark of International Business Machines Corporation. CLARION™ is a trademark of Barrington Systems, Inc. ©1986 Barrington Systemis 
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EDITORIAL 


eres some of 

what we have 
planned for DDJ's 
twelfth year. 

In a series of short 
reports, contributing 
editor Namir Sham- 
mas will examine the 
state of the BASIC lan- 
guage in 1987. Yes, BA- 
SIC. DDJ is hardly a be- 
ginner’s magazine, but 
if the beginner's language has grown 
up to long pants, as some claim, we 
should all know about it. 

Then again, each of us is a nov- 

ice in some area. Realizing this, 
DDJ will use the icon at the beginning 
of this paragraph to flag certain fea- 
tures as entry points: items such as 
Allen Holub’s Flotsam and Jetsam in 
this issue, from which the less experi- 
enced programmer can learn useful 
techniques or gain familiarity with 
more technical subjects. 

There are a lot of ways to write 
about artificial intelligence, nearly all 
bad. Our new column on alternative 
programming paradigms (it starts 
next month) will avoid them all as it 
examines such topics as knowledge- 
based programming, logic program- 
ming, and object-oriented program- 
ming from an experienced software 
designer's perspective. Contributing 
editor Ernie Tello writes, lectures, and 
consults in this area and promises to 


take us beyond the fields we know. 
pel And were going to attack the 
44 bandwidth problem. 

DDJ was born to shoehorn BASIC 
into the hypomnemonic personal 
computers of 1976. In a sense, the 
Cain/Hendrix versions of Small-C 
published in DDJ over the succeeding 
years addressed this same problem of 
cramming programming power into 
micro memory. You could say that’s 
been the charter of the magazine, 
and on one level it will continue to be 
our focus. But nobody today needs 


»| another Tiny BASIC or Small-C. Devel- 


opments like the Intel 80386 proces- 


2 





sor lift the lid of a dif- 
ferent box of program- 
ming problems. One is 
the efficient transmis- 
sion of information 
over limited channels. 
Bandwidth is al- 
ready an issue in 
graphics output: Mi- 
crosoft Windows nev- 
er made sense on 8088 
machines and the PARC 


interface overwhelmed the original 


128K Mac. Adequate memory and 
processor power make a big differ- 
ence, but they may ultimately just 
move the bottleneck to the IC level. 

Bandwidth becomes more of an is- 
sue in mass storage as storage be- 
comes more massive. Once we learn 
what to do with CD-ROMs, retrieving 
information efficiently from them 
will require more than increased 
speed of transmission. 

The potential bandwidth crunch 
in telecommunications and remote 
database access is obvious, but when 
LANs start proliferating, so will in- 
house bandwidth competition. 

Approaches to the bandwidth 
crunch can range from clever data- 
compression algorithms to systems 
that form hypotheses about incoming 
data and acquire just enough data to 
confirm or reject the hypotheses. As 
access to information becomes more 
technically problematic, it will also 
take on sociopolitical dimensions; for 
example, public libraries are becom- 
ing measurably less public as they 
subscribe to commercial information- 
provider services and pass the costs 
on to their patrons. We’ll delve into 
the technology for dealing with the 
bandwidth crunch while trying to see 
its potential social consequences. 

Bandwidth-related items will be 
flagged with the icon at the end of 


this line. ne 
Michael Swaine 


editor-in-chief 
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The C for Microcom 


& 


puters 


@ PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 





Manx Aztec C86 
“A compiler that has many strengths... quite valuable 
for serious work” 

Computer Language review, February 1985 
Great Code: Manx Aztec C86 generates fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 p1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size __ Link Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 
34 secs 7,146 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Microsoft C 3.0 
Optimized C86 2.20) 53secs 11,009 


Mark Williams 2.0 
Lattice 2.14 


56 secs 12,980 
89 secs 20,404 





Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 


Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler LN86 Overlay Linker 
80186/80286 Support Librarian 

8087/80287 Sensing Lib Profiler 

Extensive UNIX Library DOS, Screen, & Graphics Lib 
Large Memory Model Intel Object Option 

Z (vi) Source Editor -c CP/M-86 Library -c 


ROM Support Package-c § INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF and GREP -c_ Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 


Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 Greenleaf $185 
PHACT $250 PC-lint $98 

HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 


WindScreen $149 FirsTime $295 
SunScreen $99 _ C Util Lib $185 
PANEL $295 Plink-86 $395 


ce TM Lattice inc. 


Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure compile speed... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 


Optimized C Creates Clickable Applications 
Macro Assembler Mouse Enhanced SHELL 
Overlay Linker Easy Access to Mac Toolbox 
Resource Compiler = UNIX Library Functions 
Debuggers Terminal Emulator (Source) 
Librarian Clear Detailed Documentation 
Source Editor C-Stuff Library 

MacRam Disk -c UniTools (vi,make,diff,grep) -c 


Library Source -c One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 


Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 
AMIGA, CP/M-68k, 68k UNIX call 
Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3. $399 


Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 


Aztec C65-c/128 C64, C128, CPIM $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


e Inc. C-tree TM Faircom. Inc., PHACT TM PHACT ASSOC. Cl 
creen, SunScreen TM: Syste 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 


“‘Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 
How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in’ basis for users of competing systems. Call for 
information. 
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hat is the logical 

end point of the 
current trend toward 
smaller and smaller 
chip components? 
How soon will it be 
reached, and how reli- 
able will the compo- 
nents be at that level? 
These questions are be- | 
ing addressed by a to- 
tally new branch of sci- 
ence, one that combines 
disciplines of chemistry, physics, biol- 
ogy, computer science, and mathe- 
matics. The new field, called nano- 
technology, concerns itself with 
devices that are several orders of mag- 
nitude smaller than current microcir- 
cuitry—components made up of indi- 
vidual atoms and molecules carefully 
bonded one by one. This may seem 
too farfetched to expect to see it in our 
lifetimes, but we’re much, much clos- 
er than that. Several recent develop- 
ments have suddenly elevated nano- 
technology from a pipe dream to a 
bona fide discipline. I recently attend- 
ed a seminar at which the field’s most 
vocal advocate, Eric Drexler, spoke el- 
oquently about nanotechnology. He 
actually laid out the design (on an 
atom-by-atom scale) of a working 
nanocomputer, smaller than a virus 
particle, along with all its support de- 
vices. I’m excited by the potential of 
such incredibly small, fast devices, 
and I'd love to hear from any of you 
who are working in this new field. 


We ve received excellent respons- 
es to our October 1986 issue, which 
focused on the 80386 and its family. 
This month we focus on the other 
side, the sixers. (If you're a 680xx pro- 
grammer, youre probably a sixer.) 
We start with an overview of the 
68000 line—where it has been, 
where it is now, and where it might 
be going. As more information be- 
comes available on the 68040 (and be- 
yond), we'll keep you up to date. 

»Yates Fletcher has written a Forth- 


? 
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like interpreter for the 
68000 that he calls 
FLINT. His article in this 
issue describes it in de- 
tail and offers some in- 
teresting insight into 
what makes threaded 
interpreters so effi- 
cient. Also in this issue, 
Brian Capouch takes a 
look at the OS-9 operat- 

i ing system from 
Microware. OS-9 shows promise as a 
standard for 68K development work, 
and Brian explains why. Jan Harring- 
ton’s article about Amiga gadgets and 
Macintosh buttons is one of the clear- 
est comparisons I've seen of the differ- 
ent programming styles required on 
the two machines. 

This month I begin what I hope will 
be a series of essays on the design of 
an interpreted language for the 68000. 
I’m interested in your comments and 
criticism. 

Last July, in our annual Forth issue, 
we published an article about a Forth- 
driven robot that dives into the ocean, 
records oceanic data, and then pops 
up to send the data home via satellite. 
This July we'd like to focus on embed- 
ded systems of that sort—programs 
that reside inside autonomous de- 
vices. If you're working on such a de- 
vice, we'd like to hear from you. 


Bela Lubkin has joined Levi Thom- 
as and Ray Duncan as a sysop on our 
CompuServe SIG (DDJFORUM) and has 
been stirring things up quite nicely. 
You will doubtless see his name on 
many a message in DDJ On Line. 


Finally, I'd like to thank Jerry 
Houston, Roger Dunn, John Berry, 
Charles Marslett, and Wayne Vu- 
cenic for their help with Table 2 on 


Nick Turner 
editor 
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The 68000 et Famille 
{A small boy, Oliver Wendall Jones, is sit- 
ting on Santa's lap reciting his Christmas 
wish list. ] 
Oliver: “That's the 32-bit MC68000 micro- 
processor .. . not to be confused with... .” 
Santa: ‘The 16-bit 8088. Total garbage, El 
Stinko.’’—Bloom County (comic strip), 
Berke Breathed, December 12, 1985. 

“Tom Pittman, the implementor of the 
$5/copy version of Tiny BASIC for the 6800 
and 650x is now offering an experimenter’s 
kit for those folks who want to modify and 
extend his Tiny BASIC. The kit includes an 
assembled source listing for the IL (Interme- 
diate Language), an IL assembler written in 
Tiny BASIC, a detailed description of the vir- 
tual machine implemented by the IL, in- 
structions for incorporating a new IL into 
the Tiny BASIC system, and finally some 
practical hints about debugging and extend- 
ing the system. The cost is $10 from Itty Bitty 
Computers.’’—DDJ, March 1977. 






































Flak from Our Readers 

“A language design frequency of almost 
one Tiny BASIC version per month is cer- 
tainly impressive. Programmers ought to 
have realized that God invented many dif- 
ferent laguages in Babylon not to enjoy but 
to punish mankind, and, after all, he never 
intended implementing all of them for the 
8080. So why not write—and, if necessary, 
publish—programs in an informal, ad hoc 
language fitting to the problem, not the 
computer?’ —Thomas Alexander Matzner, 
letter to the editor, DDJ, March 1977. 

‘{[You write ‘em; we'll publish (may- 
be).|'—editorial reply to the above, DDI, 
March 1977. 





Ten Years Ago in DDJ 

“Why bother with a multi-tasking oper- _ 
ating system on a ‘personal’ computer? 
Let's daydream for a moment. Wouldn't it 
be nice to be able to start a lengthy listing 
on our hardcopy device; while that was 
running, start an assembly of a large pro- 
gram; and then go about editing the source 
for another program from our softcopy 
terminal? That’s EXACTLY what you can do 
with a multi-tasking system.’’—Jim War- 
ren,DDJ, January 1977. 

“IT would like to particularly applaud 
Dick [Wilcox]'s position regarding low-cost 
distribution of software for not-for-profit 
use. He is recognizing and adjusting to the 
realities of the new world of personal com- 
puting in a manner that I feel is fair and 
reasonable for everyone concerned.’ — 
Jim Warren, DDJ, January 1977. 


Dar. Doss's of 
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Large model C compiler 
erforms like big-name brands 





includes free C tutorial 


$ Ss Sd “As good as or better than most of the heavyweights...’ 
DR. DOBB’S, August 1986 


The DATALIGHT C COMPILER isa 
full-implementation of the C language 
as defined in The C Programming 
Language by Kernighan and Ritchie. 
Supporting five memory models, 
DATALIGHT C has very fast compile, 
link, and execution times with a 
minimum of memory required. Our 
special introductory price is only $99 
for the DEVELOPER’S KIT. 


Optimize Your Code Generation 


Now you can produce highly opti- 
mized code in the standard Intel object 
module format. The optimizations 
performed include common subex- 
pression elimination, branch optimi- 
zations, constant folding, strength 
reductions, dead-code eliminations, 
and switch table compaction. 


Five Memory Models Supported 


DATALIGHT C provides five mem- 
ory models so you can use the model 
that best suits your application. 


Memory Models 
Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, One step... 


Now with the one step DLC program 
you can compile, link, and create a 
COM file. Also, one or more files can be 
compiled and linked using DLC. 


Complete Library 
Includes Source Code 


The UNIX compatible library includes 
complete source code. Experienced 
programmers can use the source code 
to configure and rebuild the library to 
suit the application. 


Concise Documentation Included 


The DATALIGHT C COMPILER and 
DEVELOPER'S KIT include a concise, 
to the point, programmer’s manual. 
The 210-page manual is contained in 
an IBM-style three-ring binder which 
includes nine chapters, appendices, 
index, and easy to follow examples. 


Datalignt 


BOX 82441 
KENMORE, WA 98028 
(206) 367-1803 





Circle no. 203 on reader service card. 





30-DAY MONEY-BACK GUARANTEE 


Try our DEVELOPER’S KIT for 30 
days, and if you do not find it to be 
equal to, or better than, any compiler 
you have, or are using, then you may 
return it for a full refund. Also, if you 
return the compiler within 30 days, 
you may keep the C tutorial, a $39 
value, for trying our DEVELOPER’S 
KIT. 


Introductory Prices 
DATALIGHT C without source $60 


(compact & small memory model support) 


DEVELOPER’S KIT with source $99 


(five memory models supported) 


Not Copy Protected 


ORDER TOLL-FREE TODAY! 
1-(800) 221-6630 : 
*SPECIAL OFFER! 


ORDER the DEVELOPER'S KIT by 
January 31, 1987 and receive free.... 


c: 
A Programming 
enahop 


toy Ghrariss Pires 





‘“‘Combines print and software 
technology to create the most inte- 
grated new type of training system I 
have ever seen:’ 


ADAM GREEN, INFO WORLD 
January 27, 1986 


“C:A Programming Workshop” isa 
complete C language learning package 
with an integrated compiler and 
screen editor. Learn the C language 
with tutorials, quizzes, and program 
exercises. 


Add $5 for shipping in US/$15 outside US 
COD (add $2.50) 


*Limited offer available exclusively to readers 
who purchase directly from DATALIGHT. 








Magazine Reviewers Shocked by 
DATALIGHT’S PERFORMANCE... 


‘Reviewing this compiler was quite a surprise for 
us. For such a low price, we were expecting a 
“lightweight” compiler. What we got was a package 
that is as good as or better than most of the 
“heavyweights.” DATALIGHT C implements a 
complete C language. It also compiles quickly, 
doesn’t take up much disk space, and looks 
impressive in the benchmarks:’ 


DR. DOBB'S, August 1986 


‘This is a sharp compiler! ... what is impressive 
is that DATALIGHT not only stole the compile time 
show completely, but had the fastest Fibonacci 
executable time and had excellent object file sizes 
to boot!”’ 


Chris Skelly, COMPUTER LANGUAGE 
February 1986 


DEVELOPER'S KIT (VERSION 2.12) 


¢ Full UNIX System 5 C language plus ANSI extensions. 

¢ Fast/tight code via powerful optimizations including 
common sub-expression elimination. 

¢ DLC one step compile/link program. 

¢ Multiple memory model support. 

¢ UNIX compatible library with PC functions. 

¢ Compatible with DOS linker and assembler. 

¢ Third-party library support. 

¢ Automatic generation of .COM files. 

¢ Supports DOS pathnames, wild cards, and Input/ 
Output redirection. 

¢ Compatible with Lattice C version 2.x. 

¢ Interrupt handling in C. 

¢ Debugger support. 

¢ ROMable code supportStart-up source. 


MAKE Maintenance Utility 


¢ Macro definition support. 

¢ MS-DOS internal commands. 
¢ Inference rule support. 

¢ TOUCH date manager. 


Tools in Source Code 


¢ cat—UNIX style “type” 

¢ diff—Text file differences 

¢ fgrep—Fast text search 

¢ pr—Page printer 

¢ pwd—Print working directory 
¢ wc—Word count 
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Soitware Gap 
Dear DDJ, 

After reading Nick Turner's Running 
Light column in the August issue con- 
cerning the perceived ‘‘software 
gap,’ I felt as though I had to tell you 
how I see it. 

I hold a Bachelor of Science degree 
in computer science from the Uni- 
versity of Maryland. I learned all 
about the “right” way to design and 
code programs, including everything 
you say programmers don't care 
about anymore. From my own expe- 
rience, I find this to have been a 
waste of time and tuition. 

The biggest problem I have had in 
my ‘‘career’’ has been convincing 
some of the “data processing . 
managers’ how a program 
should be constructed. Every 
time I try to write some form 
of documentation, I am told 
“not to waste time on such use- 
less paperwork.” I wish I 
could say this only happened 
at one or two companies, but I 
have been employed at four 
different companies over the 
past five years, and every one 
of them has been the same. I 
am beginning to think the 
only way I'll ever get to be 
what you call a ‘“‘professional”’ 
programmer is to start my 
own software company. 

At times I wonder if the 
problem with the manage- 
ment structure stems from 
the fact that most of the peo- 
ple promoted have business 
backgrounds. Not one of my 


bosses has ever had anything ; . 


other than a business degree, 
and not one knows the first 


thing about a programming project. 
My current boss only understands 
straight-line coding and sequential 
list processing (that is, no doubly 
linked lists, no sparse matrices, no 
queues, and so on)—nice way toruna 
systems software development 
group that still uses a one-way line 
editor. ; 
AllI want is the chance to use what 
I learned in school and to be able to 
do a programming project correctly. 
It would be such a treat. 
Name withheld by request 


Dear DDJ, 
I am writing in response to Nick 


- Turner’s August Running Light about 


sloppy programmers. I am a pro- 
grammer/engineer, and I see a lot of 
sloppy programming. In fact, I do 
some sloppy programming myself. I 
think I might have a clue as to what is 
going on. 

Turner mentions the program- 
mers who can ‘write entire operat- 
ing system kernels... in one pass, in 
assembly code, that run perfectly the 
first time... .’’ Well, I think they are 
the exception to the rule. I do not, 
however, doubt the premise that we 
can all do it, it just takes the rest of us 
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a little more time and concentration. 

So why don’t we take the time, con- 
centrate, and code better? I propose 
that the reason why we don't is the 
reward system that most of us work 
within. My manager seems to be less 
concerned that a project works the 
first time than he does that it is done. 
He wants to “see something.’ Grant- 
ed, I work for a defense contractor 
and my manager wants to record 
milestones, not finish projects. But I 
think this attitude is more prevalent 
than most of us think. 

Why, then, does this attitude and 
reward system not affect the hot per- 
formers? I think it is because they, at 
some level, do not respond to the 
same reward system as the majority. 
Every organization has at least one 
programmer who walks to the beat 
of a different drummer. This is not to 
say that all individuals who fit this 
description are great programmers, 
but most of the great programmers I 
know (or know of) are of this type. 
On the other hand, this tends to make 
them more difficult to manage, par- 
tially because they do not respond to 
the reward system that reflects the 
views of management. 

So what can be done? Well, we 
probably won't change the 
managers or their ideas of 
how things should be done. 
From my own experience, | 
find that if they want to see 
something I have two choices. 
First, I can slop it together and 
debug it later (when I have less 
time). Second, I can “stub” it 
off, perhaps only coding the 
user interface or some visual 
part of the program. This lets 
the manager see something, 
but the code he sees is good 
code. Later, I go back and, in- 
stead of debugging, I write (for 
the first time) the code that I 
stubbed off in the first place. 
This seems like the way to go, 
but it is sometimes difficult to 
determine when to stop cod- 
ing and start stubbing. 

So I haven't really offered a 
solution. Just some ideas as to 
what I think the probable 
cause is and what I conceive I 
should be doing to change the 
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Building an operating system is child’s play... . 





. .. With Wendin’s Operating System Toolbox™ 


We know. 

We used it to build PCVMS, our $99 version of the versatile 
VAX/VMS operating system for the IBM PC. 

And PCUNIX, the only operating system that puts the powerful 
features of UNIX on the PC for under $100. 

But we didn’t create this powerful software construction set just for 
us. The Toolbox is for any programmer who wants to build his or 
her own multitasking, multiuser operating systems. 

Systems compatible with the PC-DOS file system and with most 
MS-DOS programs. 

In nine basic modules, Toolbox provides everything you need 
(including source and object code) to build a personal operating 
system that fits you and your work habits — instead of the other way 
around. 

And to help you get started, we've written a step-by-step instruction 
manual that shows you how to write a shell and link it with the 
Toolbox kernel. 

The only thing we don't provide is a creative imagination. If you've 
got that, the rest is child’s play. 


Operating System Toolbox From Wendin. Only $99. 


ORDER HOTLINE 





(/ 327 E. PACIFIC 





LIAS spokane WA 99202 (MON.-FRI., 8-5 PACIFIC TIME) 


© Copyright 1986 Wendin, Inc. |The people who make quality 
software tools affordable. 


Circle no. 112 on reader service card. 


: (509) 624-8088 





Ask about our other products 
for the IBM PC and true 
compatibles. 


PCNX™ 


True multitasking, multiuser 
operating system similar to AT&T's 
popular UNIX™ operating system. 


PCVMS™ 


Multitasking, multiuser version of 
DEC’s powerful VAX/VMS operating 
system. Runs most MS-DOS 
programs. 


XTC® 


The ultimate programmer’s editor. 
Multitasking macro language plus 
multiple linkable windows and 
buffers. 


All products priced at $99 
with source code included. 


DEALER INQUIRIES WELCOME 


Foreign orders inquire about shipping. 
Domestic orders add $5.00/1st item, $1.00 each 
additional item for shipping, handling, and 
insurance. We accept Visa/MC, American 
Express, COD, and Bank Drafts drawn on U.S. 
Banks. 

Washington residents add 7.8% sales tax. 


MS is a trademark of Microsoft, PC-DOS is a 
trademark of IBM. UNIX is a trademark of AT&T. 
VAX/VMS is a registered trademark of Digital 
Equipment Corporation. 


Wendin and XTC are registered trademarks of - 
Wendin, Inc. PCNX, PCVMS, Operating System 
Toolbox, and Personal Operating System are 
trademarks of Wendin, Inc. ‘ 
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(continued from page 10) 


situation. I will be watching with in- 
terest to see what other readers have 
to say about this problem. 
Name withheld by request 


Avoid Woe when 
Upgrading MS-DOS 
Dear DDJ, 
Allen Holub’s “A Tale of Woe” (C 
Chest, September 1986) sparked some 
vivid memories of upgrading from 
MS-DOS 2.11 to MS-DOS 3.10. MS-DOS 2.11 
and earlier would search for an avail- 
able file from the beginning of the 
FAT each time. MS-DOS 3.10 is more ef- 
ficient because it allocates from 
wherever it left off. This caused me 
much grief in trying to change the 
attributes and delete and replace the 
two system files Allen mentioned, 
IBMBIO.COM and IBMDOS.COM for the 
PC and IO.SYS and MSDOS.SYS for ge- 
neric MS-DOS. These two files must re- 
side in the first clusters of the disk. 
The first data cluster is cluster 2. Ad- 
ditionally, they must be contiguous. 
You can delete and replace these two 
files by following a few simple rules. 
The total number of clusters must be 
no more than the original unless 
there are some unallocated clusters 
just beyond these two files. Under MS- 
DOS 3.10, you can unhide and delete 
these files and then reboot from a 
floppy. This will restore the FAT 
pointer to start searching at the be- 
ginning of the disk to modify. You 
may then copy the system files, 
which will now be the first n clus- 
ters, and they will be contiguous. 
Now the disk will be bootable. It 
helps to be able to track through the 
FAT and directories if there is a prob- 
lem or if more space is needed. So 
there may be no need to reformat. 

Max G. Heffler 

Landmark Graphics 

Corp. 
1011 Hwy. 6S, #120 
Houston, TX 77077 


OS-9 Continued 

Dear DDJ, 

I was dismayed to see the thrashing 
Heitzso gave to the OS-9 operating sys- 
tem in his October letter. I disagree 
with both his specific examples and 
his general conclusions (please par- 
» don the assumption of gender). 

To start with, OS-9 cannot compete 


f 
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with Unix on disk speed; Unix keeps 
part of its file structure in memory 
whereas OS-9 always keeps its sector 
allocation bit map on the disk up to 
date. There is a clear speed advantage 
to accessing information in memory 
rather than on disk, but you pay a 
price in vulnerability. In this case, 
Microware chose to make the file 
structure robust and corruptionproof. 

Heitzso illustrates the ‘“‘real prob- 
lems’ he has had with OS-9 by de- 
scribing his difficulty in using the 
tsleep( ) function. After reading his 
letter I wrote a simple C program to 
test the tsleep( ) function, and I was 
unable to make it malfunction for 
any number of ticks I specified, over 
a range of 1 to several thousand. In 
every case the timing was +/— one 
tick, just as specified. 

The tsleep( ) function accepts a sin- 
gle parameter indicating the number 
of ticks to sleep. Most OS-9 systems use 
a tick granularity of 1/100 second, 
which also happened to be the length 
of time Heitzso wished the task to 
sleep. I suspect that he requested that 
the task sleep for one tick; however, 
the documentation clearly states that 
a tick parameter of 1 causes the call- 
ing task to give up its present time 
slice. At the expiration of the time 
slice, the task will be put back on the 
active process queue, where it will 
compete for CPU time with other pro- 
cesses that are ready to run. If the call- 
ing task gives up its time slice near the 
end of a quantum and there are no 
other executable processes, it is quite 
possible that tsleep( ) will return after 
an interval as short as 1/3,000 second. 

Heitzso also describes how the OS-9 
Format utility has a bug that prevents 
the user from specifying a cluster size 
greater than one sector. In reality, the 
documentation for the Format utility 
mentions that at present only a cluster 
size of one is supported! 

I have yet to uncover a bug in the 
operating system. Microware's latest 
product discrepancy report lists a 
single bug in the operating system 
components, and it is triggered by an 
obscure condition in a little-used sys- 
tem call. 

I disagree with Heitzso’s conclu- 
sion that Microware’s customer sup- 
port is poor. I have found Microware 
to be quite reasonable in the dealings 


I have had with it. Microware pro- 
vides bug lists and work-arounds to 
those who request them, and it offers 
a special telephone hot line for pro- 
fessional software developers. One of 
my gripes is that the hot line is too 
expensive, but I have heard that this 
may change. I hope so. 

During a time when many experts 
in the computing field were touting 
the use of high-level languages as the 
best way to create an operating sys- 
tem, Microware quietly crafted an el- 
egant, modular, and extensible gem in 
assembly language. I look forward to 
seeing OS-9 dominate the 68000 mar- 
ket as more people recognize its 
merits. 

Kurt Liebezeit 

Ordinate Systems 

505 W. Springfield 

Champaign, IL 61802 


We didn’t do our homework when we 
published Heitzso’s letter. This issue 
contains a look at the OS-9 operating 
system by Brian Capouch—eds. 


Correction 
Dear DDJ, 
The Microsoft-supplied correction to 
Version 4 of the Microsoft Macro As- 
sembler that Ray Duncan gives on 
page 96 of the September 1986 issue 
of DDJ is incorrect. The “‘correction”’ 
as published causes MASM to go off 
into never-never land. The error in 
the listing on page 96 is a typographi- 
cal one. The byte entered into ad- 
dress xxxx:72D4 should be E9 instead 
of 39. This error appears in the string 
of 34 bytes that are entered starting at 
XXXX:72B8. 

Robert C. F. Bartels 

P.O. Box 2240 

Ann Arbor, MI 48106 


DDJ 
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ANOTHER _ 
PLUS FROM 
BLAISE 
COMPUTING 


The best just got bet- 
ter! Turbo POWER 
TOOLS, acclaimed as 
the best programmer 
support package for 
Turbo Pascal, now has 
even more functions, more detailed docu- 
mentation and more sample programs. 


NO SECRETS 


Turbo POWER TOOLS PLUS is crafted so 
that the source is efficient, readable and 
easy to modify. We don’t keep secrets! We 
tell you exactly how windows are managed, 
how interrupt service routines can be writ- 
ten in Turbo Pascal, and how to write mem- 
ory resident programs that can even access 
the disk. Maybe you’ve heard of some un- 
documented DOS features that resident 
programs use to weave their magic. Turbo 
POWER TOOLS PLUS documents these 
features and lets you make your own magic! 


Here’s just part of the PLUS 
in Turbo POWER TOOLS PLUS: 


WINDOWS that are stackable, re- 
movable, with optional borders anda 
cursor memory. 

FAST DIRECT VIDEO ACCESS for 
efficiency. 

SCREEN HANDLING including 
multiple monitor and EGA 43-line 
support. 

POP-UP MENUS which are flexible, 
efficient and easy to use, giving your 
applications that polished look. 

INTERRUPT SERVICE ROUTINES 
that can be written in Turbo Pascal 
without the need for assembly lan- 
guage or inline code. 


Power Tools Plus” 


Window Routines. 
Memory Resident Routines. 


Routinely. 


INTERVENTION CODE lets you de- 
velop memory resident applications 
that can take full advantage of DOS 
capabilities. With simple procedure 
calls, you can ‘“‘schedule”’ a Turbo 
Pascal procedure to execute either 
when a “‘hot key” is pressed, or ata 
specified time. 

PROGRAM CONTROL ROUTINES 
allow you to run other programs from 
Turbo Pascal, and even execute DOS 
commands. 

MEMORY MANAGEMENT allows 
you to monitor, allocate and free DOS- 
controlled memory. 

DIRECTORY AND FILE HAN- 
DLING support to let you take advan- 
tage of the newer features of DOS 
including networking. 

STRING procedures al- 
lowing powerful trans- 


; : e. 
lation and conversion us 
. . . ur 
capabilities. OTHER 


FULL SOURCE CODE 
for all included routines, 


sample programs and_ | Name: 


utilities. ' spipping 
DOCUMENTATION, : City: 
TECHNICAL SUPPORT | V6 ot 


and attention to detail that 
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domestic orders Phone: (—— 


Address: 


...one package stands out as 
the best support available for Turbo 
Pascal programmers: Blaise Com- 
puting’s Turbo Power Tools. This 
definitive set of prewritten Pascal 
functions and procedures will 
make the life of any programmer— 
from the beginner to the hard-core 
professional—easier and more 
productive. 


have distinguished 
Blaise Computing 
over the years. 


Turbo POWER 
TOOLS PLUS sup- 
ports Turbo Pascal 
Version 2.0 and 


later and is just 
$99.95. 


Another quality prod- 
uct from Blaise Computing: Turbo ASYNCH 
PLUS™ 

A new package which provides the crucial 
core of hardware interrupt support needed to 
build applications that communicate. 
ASYNCH PLUS offers simultaneous buffered in- 
put and output to both COM ports at speeds up 
to 9600 baud. The XON/XOFF protocol is sup- 
ported. Now it also includes the “XKMODEM” 
file-transfer protocol and support for Hayes 
compatible modems. 

The underlying functions of Turbo ASYNCH 
PLUS are carefully crafted in assembler for effi- 
ciency and drive the UART and programmable 
interrupt controller chips directly. These func- 
tions, installed as a runtime resident system, 
require just 3.2K bytes. The high level function 
are all written in Turbo Pascal in the same 
style and format as Turbo POWER TOOLS 
PLUS. All source “eS is included for just 
$99.95. 


BLAISE COMPUTIN GINC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087 


Calif. residents call eyo oe 3441 —-— 
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Logic and PROLOG 

The touted virtue of PROLOG is that it 
provides a basis for programming in 
logic—hence its name. This suggests 
that logically correct descriptions or 
axiomatizations of a body of knowl- 
edge can be transcribed into PROLOG 
and that the appropriate deductions 
could then be drawn by PROLOG's in- 
ference engine. The idea of systemati- 
zation of knowledge by way of postu- 
lates embedded in a deductive system 
has proven to be a powerful one since 
the time of Euclid. With the develop- 
ment of predicate logic by Frege and 
Russell, the idea received new impe- 
tus in this century. Many areas of 
mathematical and scientific investiga- 
tion have axiomatic foundations—set 
theory being a prime example. The 
expansion and codification of knowl- 
edge by the deductive-axiomatic 
method, as the central methodology 
of knowledge, has its critics. But what 
has delayed its use outside theory con- 
struction itself is that, for practical 
real-time applications, hand-deduc- 
tion from a knowledge base is too 


by Dick Butrick 


slow. What PROLOG promises is speed 
of deduction. You could simply query 
a knowledge base (axioms, postulates), 
and PROLOG would make deductions 
with computational speed—giving 
tremendous impetus to the deductive- 
axiomatic method as the central 
methodology of knowledge by re- 
moving the practical barrier to its use. 

Unfortunately, the match between 
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formal logic and PROLOG is tenuous at 
best. In fact, from a strictly logical 
point of view, PROLOG is inconsistent. 
Because any inconsistent deductive 
system is complete (if you can derive a 
contradiction, you can derive any- 
thing), PROLOG is theoretically com- 
plete. In implementation, however, 
PROLOG is not just inconsistent, it is in- 
complete. Time considerations and 
stack space are not considerations in 
pure logic, but these realities render 
PROLOG radically incomplete. 

Of course, there are PROLOGs and 
PROLOGs. Specific reference here is to 
PLS PROLOG. However, the points 
raised apply just as well to Borland 
PROLOG and indeed to any nonpure, 
expanded, DEC-20-type PROLOG 
(Quintus PROLOG, CPROLOG, Poplog, 
and so on). 

Typically, in testing out PROLOG as 
a deductive-axiomatic shell, a logi- 
cian might enter postulates for the 
transitivity of R: 


(x) (y) (z) (Rxy & Ryz --> Rxz) 


In the Simple syntax of PLS, this 
becomes: 


R(x z) if R(x y) and Rly z) 


Given the R-facts R(a b) and R(b c), it 
seems reasonable to query the sys- 
tem with is(R(a c))? PROLOG prompt- 
ly responds with “no more space.” 
Stack overflow has occurred. 

This is not apt to impress the logi- 
cian, or for that matter the layman, 
with the deductive power of PROLOG. 
At this point the dismayed logician 
might enter the PROLOG equivalent of 
{p <--> q, p} and query the system 
for g. The PROLOG equivalent is: 


pifq 
qifp 
p 


And the query is is(q). ‘No more 
space’ is again the reply. 

At this point the logician might 
wonder if the inference engine is out 
of gas. In fact the system is in a goal- 
reduction loop. It reasons thus: To get 
q, first get p; to get p, first get g; to get 
q, first get p; and so forth. It never gets 
beyond the first two rules. In fact, {p 


if p, p} along with the query for p will 
put the system into an infinite loop. 

This might seem a simple problem 
to solve, which of course it is for spe- 
cific cases. In general, however, it 
can be shown to be unsolvable. A 
loop-detection procedure for a goal- 
reduction theorem prover is equiva- 
lent to the halting problem shown by 
Alan Turing in the 30s to be unsolv- 
able. Essentially, a loop-detection 
monitor requires more logic than the 
goal reduction it monitors. 

To make matters worse, the ‘“‘no 
space left’’ response can be triggered 
without setting up a goal-reduction 
loop: {H(x y) if H(x x), H(a a), H(b b)} 
along with the query is(H(a b)) causes 
stack overflow. In Borland PROLOG, 
{H(x y if H(y x), H(a b)} along with the 
query for H(b a) does the trick. If you 
cannot enter the postulates declaring 
the commutativity of a relation, then 
you might question whether PROLOG 
belongs in the remedial logic class for 
absolute dummies. 

Examples such as the foregoing are 
legion, but they merely demonstrate 
the radical incompleteness of PRO- 
LOG. What is even more insidious is 
PROLOG’s inconsistency. The treach- 
erous dimension to PROLOG is not so 
much what it can’t do as what it can. 
Consider the following deduction, 
based on the deduction rule known 
to logicians as mirabile dictu: 


pif not q 
q / Hence not p 


Querying this little postulate set with 
is(not p) yields the astounding an- 
swer ‘yes.’ Not only that, the system 
will make further deductions on the 
basis of this fallacious deduction. 
Adding the postulate r if not p and 
querying the system for r yields the 
answer ‘‘yes.’ Again, such examples 
are legion. 

Borland refers to PROLOG’s treat- 
ment of negation as ‘‘novel.”’ The justi- 
fication for this novel treatment of ne- 
gation is, according to Borland, the 
hidden assumption of the law of the 
excluded middle automatically made 
by PROLOG. Thus for the one-place 
predicate h, PROLOG automatically as- 
sumes A(x) or not h(x). The latter is. 

(continued on page 138) 
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We COMMON LISP Development System for Your PC or AT 





Introducing TransLISP PLUS ' The Consultant’s LISP 
Over 400 Primitives, a C Interface, and Optional Runtime System 


People call you because you’re an expert. Your customers want to keep up with what’s going on. They want software that is more intelligent 
and responsive, or software that does something that just wasn’t possible before. So they call you. 


Now you can write and deliver a whole new category of software with TransLISP PLUS, a practical, efficient LISP system. You can also 
add Artificial Intelligence to your software. We include several features, like a C Interface and Optional Runtime System, so you can 
control the performance and security of your programs. And your users only need to have a PC (can even be non-compatible) with 320K 
and | floppy drive. Now, what could you write for a $700 PC? . . . or a $7000 PC?... 


Add AI Technologies to 
Your Software 


Most of the programs you write are accessed 
by a user who doesn’t have your expertise. 
Use intelligent interfaces to make your pro- 
grams more responsive to the end user. 

You can even use the C Interface included 
with TransLISP PLUS to customize LISP, or 
combine C functions with LISP programs. 

Take advantage of AI technologies to make 
your programs smarter and more flexible. 


Extensive Development 
Environment 
Over 400 Primitives 


TransLISP PLUS provides you with over 400 
primitives for development, including extras 
for hardware support and operating system 
access. Their spectrum ranges from control 
constructs, macros, and special forms, to 
multi-dimensional arrays, reader support for 
binary, octal, and hex constants, improved 
list processing, and system interrupts. 

DOS commands and applications can be 
invoked from within TransLISP PLUS, as 
can the fast editor. Of course, you can use 
your own editor if you like. 

A variety of debugging tools are provided. 
The trace facility tracks the evaluation of any 
built-in or user-defined function or macro. 

Traceback, Break, Cross Reference, and 
Pretty Printer are also provided to help you 
spot problems. 





Clibraries ... Distribute your applications 


MONEY BACK GUARANTEE 


The ONLY Full Featured 
Common Lisp with a 
C Language Interface 


The best of both worlds. The interface to 
Microsoft C gives you a powerful extension 
to TransLISP PLUS — now you can write code 
in LISP and C. And you don’t need an AT, 
it will run on your PC! 

The C Interface makes it practical for you 
to write a C program and add it as a new func- 
tion to TransLISP PLUS. Your function can: 

* extend and/or change the LISP syntax 
* be an entire system of programs 

Create your own BUILT-IN primitives which 
are directly tied to the system and called at 
full speed by the interpreter. Extend the 
functionality of your program by including 
features of your own like macros, functions, 
and special forms. 

Code from C libraries produced by other ven- 
dors can be integrated into your program to 
perform tasks not normally part of LISP. 


Use PLUS for Your 
Applications. No Royalties. 


Once you own TransLISP PLUS, you may 
want to use it to distribute applications. No 
problem. 

The Optional TransLISP PLUS Runtime 
supplies you with a special interpreter. You 
can distribute an executable version of your 
program without distributing source code. 

The Runtime is available for $150 and Trans- 
LISP PLUS is required. 





Use TransLISP PLUS to program with and deliver to lots of machines . . . Use your existing 


Try TransLISP PLUS ($195) for 30 days — if not 


satisfied get a full refund. 





Don’t Know LISP? 


Get a solid understanding of LISP with the 
comprehensive, easy-to-understand tutorial. 
Each section walks you through a new concept 
and reinforces it with examples — both text 
and online. 

Over 30 demo programs supplement the tuto- 
rial. Use them for an in-depth introduction 
to LISP programming techniques. Commented 
source is included so you can see how and 
why the program operates. 

The demos cover a wide variety of applica- 
tions including: Select a word processor, Read 
dBASE SDF files, Job Counselor, and many, 
many more. 


The Fundamentals 


If you are interested in learning LISP but don’t 
need all the extras in TransLISP PLUS, order 
TransLISP for $95. It’s a full, easy-to-use 
introduction to LISP that includes the tutorial 
and demo programs described above, and over 
300 primitives. 

It is a solid subset of COMMON LISP; and 
you can write programs of up to 12000 lines. 


COMMON LISP Standard 


Programs written carefully with TransLISP PLUS will be completely 
“portable” to any other COMMON LISP system on a micro, mini, 
or mainframe computer. This allows you, for example, to write a 
program with TransLISP PLUS on your PC at home, and compile 
and run it on the VAX at work. 


System Requirements 


TransLISP PLUS requires at least 320K RAM and a 360K disk 
drive. 
TransLISP requires 256K RAM and a 360K disk drive. 


TARGETS PLUS 35 6 os oe $195 
Transkei $ 95 
Upgrade TransLISP to PLUS ... $158 
TransLISP PLUS Runtime ..... $150 


TO ORDER OR FOR DETAILS CALL 


SS 800-821-2492 Zs 


See. 





335-D Washington Street, Norwell, MA 02061, (617) 659-1571 


TransLISP and TransLISP PLUS are trademarks of Solution Systems. Solution Systems is a trademark of Solution Systems. 
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ARTICLES 


680xx Computers: 
Where Are 
They Gomg? 











by Nick Turner 


ince the beginning of | 

the microprocessor | | 
industry,two groups |  ——™ 
of programmers have | 
emerged—a result of the di- | 
vergence between those 
who liked the 8080 and those 
who liked the 6502. The 8080 
had dedicated I/O instruc- oo 2 
tions that used a separate sliphes space, Panel it hal several 
fairly specialized internal registers. Its instruction set was 
designed to be powerful and specific. To learn it pro- 
grammers had to memorize its specialized instructions 
and address modes. Conversely, the 6502's instructions 
were more general purpose but less powerful. The in- 
structions were easier to learn, but it took more of them to 
accomplish the same tasks. Its I/O was memory-mapped, 
making input and output identical (from the processor's 
point of view) to normal memory addressing. Memory- 
mapped I/O also reduced the number of specialized in- 
structions that had to be learned. The two camps began to 
diverge as early as 1974, and by the early 80s, those pro- 
grammers who were most fervent acquired the nick- 
names “‘eighters’’ and ‘‘sixers.”’ 

When the Z80 was introduced, the eighters suddenly 
had a much more powerful tool. The sixers had the 6800, 
and then the 6809, but there weren't many viable ma- 
chines that used those chips. Ardent sixers had to be con- 
tent with their Apple Ils and Commodore Pets and 64s. 
Certainly, some really magnificent work came out on the 
Apple II during the early 80s, showing that the Volks- 
wagen of personal computers was a lot more powerful 
than had been thought. Toward the end of this period, 
some manufacturers tried to get the best of both worlds— 
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tes 68000 led 1 to tl efiret 
‘powe Mi, ul — machine. 





| for example, the Os! Chal- 
lenger III, a strange machine 
with a Z80, a 6502, and a 6800 
all in the same box. 

For several years, it 
seemed likely that the Intel 
| line of CPU chips would 
eventually take over the 

market. Many devoted 
sixers shuddered when the IBM PC turned out to have an 
eighter chip as its heart. 

It wasn’t until the 68000 appeared that there was a real- 
ly powerful sixer machine. What led to the development 
of the 68000? Motorola’s engineers perceived the need for 
a much more general instruction set so that the chip de- 
sign could be cleaner and easier to mask. They wanted a 
CPU that would be upward compatible with future, more 
powerful chips, without the need for expensive “modes” 
that hamper functionality and take up space on the chip. 
For the most part, they seem to have succeeded. Though 
the 68000 does have some disadvantages and departures 
from a truly general-purpose design (such as the inability 
to store data using PC-relative addressing), it’s a far cry 
from the restrictive modes and specializations of the 
high-end eighter chips. Motorola took an enormous gam- 
ble in introducing what was projected to be a whole se- 
ries of CPUs with a completely new instruction set. Low- 
level programs had to be rewritten for the 68000. There 
was (and still is) a lot of momentum in the Intel line of 
chips. Has Motorola’s gamble paid off? 


Today’s 680xx Line 

To me the most valuable feature of the 68000 line, aside 
from the philosophy behind it, is the enormous range of 
speed and power available. With few or no changes to 
your software, you can move up from the 68008, which is 
roughly comparable to a fast Z80 in power, all the way to 
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a 20-MHz 68020, which easily outperforms a small] VAX. 

Further, the line includes a wide and constantly grow- 
ing selection of support chips. Most of the support chips 
are currently made by Motorola, but a growing number 
are being designed by other companies expressly for the 
68000 line (an indication of the health of the 68000 stand- 
ard). The most important support chips are the 68851 
MMU and the 68881 FPU, both of which are true coproces- 
sors when used with the 68020 (or later) CPU. 

Perhaps as a result of the ease of designing with the 
68000, a new flock of 68000-based computers has ap- 
peared in the last three years. Table 1, page 18, shows a 
sampling of the range of power and speed in the line. Of 
course, there are the relatively low-price personal sys- 
tems, most of which have graphics-oriented interfaces. 
But you also have high-end workstations, such as the Sun 
systems and the Apollo Domain network, and a host of 
other high-end systems, including some powerful image 
processing equipment. The VME bus, originally designed 
around the 68000 line, has rapidly become a worldwide 
standard for rugged, powerful, modular computer sys- 
tems. It’s supported by an international coalition of com- 
panies, the VME International Trade Association (VITA), 
and is one of the most carefully defined system specifica- 
tions I’ve encountered. 

Some of the most interesting systems are the most re- 
cent. For example, the Mustang-020, a 68020-based sys- 
tem, has been available since last spring. It’s amazingly 
powerful for its price, and it shows great promise as a 
general-purpose industrial machine. One of its chief as- 
sets is its size—in a box no larger than an IBM PC, it pro- 
vides more power than do many minicomputers. Anoth- 
er system to watch is the Quantum OL, which comes from 
Sinclair in England. According to some preliminary liter- 
ature, the entire computer is contained within a box the 
size of an IBM PC keyboard, and it runs a multitasking 
operating system called QDOS. 
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Software Issues 
Because of its generalized and rela- 

tively simple design, the 68000 works 

well with multitasking operating sys- 
tems—for example, Unix runs well under the 68020. An- 
other interesting operating system that has recently been 
increasing in popularity is OS-9. Originally designed for 
the 6809, OS-9 is fast, small, and most important, highly 
accessible. (See Brian Capouch’s article on OS-9 on page 30.) 

The 68000 line also lends itself well to graphics-oriented 
interfaces because of its efficient handling of large memo- 
ry spaces and its ability to easily accommodate large 
memory-mapped I/O spaces. The Macintosh operating 
system, for example, has set a new user interface stand- 
ard for personal computers. Although the Mac OS (espe- 
cially in its original incarnation) contained some major 
flaws, particularly in the area of disk organization, it has 
been much imitated, and most of the flaws have been 
corrected with the release of Apple’s Hierarchical File 
System. The Amiga and Atari ST both have similar “desk- 
top’’ screens, icons, and mice. 

In the area of languages, the most prominent has been 
C. Table 2, page 18, illustrates some typical execution 
times of programs compiled in C on 68000-based ma- 
chines. The benchmarks in the table were chosen to illus- 
trate a variety of operations roughly representative of 
actual programs. C is in some ways perfectly matched to 
the 68000 line—the regularity and generality of the in- 
struction set makes a language such as C almost a natural. 
Because of its relatively low-level nature, C translates 
readily into well-defined groups of machine instructions. 


The Future 

The 68000 line is the most serious competition for the Intel 
line, and the machines that use 68000s are varied and 
colorful. But will the 68000 line continue to grow and 
diversify? Will the industry support new members by 
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680XX COMPUTERS 
(continued from page 17) 


creating products that incorporate them? I think so, for 
several reasons. 

First, Motorola seems to have latched firmly to the idea 
that object-code compatibility is a must in the 68000 line. 
So far, each of the new CPUs has been almost completely 
compatible with its predecessors. The only exceptions 
come when youre writing time-slicing OS code or you 
have to deal with interrupts. Typically, that sort of code is 
fairly easy to upgrade, and the actual applications (if 
they're written intelligently) seldom require any 
changes. 

Second, you can expect continued growth and diversity 
in the 68000 line. Some preliminary information on the 
68030 processor has just landed on my desk. It will have 
not only the instruction cache of the 68020 but also a data 
cache, a memory manager, and much more. The result 
will be a CPU that has the 68020’s speed in tight loops 
(because of the instruction cache) and that also can at 
times execute completely on-chip for extended periods 
(because frequently accessed data will be in the cache). 
The rumored 68040 may use a 64- or 128-bit data bus for 
reads (although it will still use a 32-bit bus for writes). It 
may contain an even larger RAM cache as well, plus a 
Model Base 
Prices 


Type 


Maker 


Portable _ Sinclair $266 


Macalikes 


QL 2 


Memory 
Range 
Mbytes 


more powerful memory manager. In the peripherals de- 
partment, the 68882 will be a more powerful, pin-com- 
patible version of the 68881 floating-point coprocessor 
that, because of internal multiprocessing, will significant- 
ly outstrip the performance of its predecessor. 

Finally, there are rumors of many other support chips 
floating around, along with some really fun rumors about 
68100 or 68200 CPU chips. For example, how about a chip 
containing four 68030 equivalents, all executing simulta- 
neously from dual, dynamically allocated 16K instruction 
and data caches? Of course, that’s nothing more than a 
nasty rumor. There’s probably no truth to it whatsoever. 


A Dream Machine? 

Will future developments live up to the expectations of 
software developers? So far the 68000 line has done well in 
a market that might otherwise have been completely dom- 
inated by Intel. The 80386 is strong competition, but the 
68030 sounds like a programmer’s dream. Unless some 
company takes over the sixer marketplace within the next 
few years, it looks like the 68000 and the more powerful 
related chips will prevail as the premier sixer CPUs. 


DDJ 
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68008 QDOS _ No 1986 


Atari ST 520 $800 o-1 68000 8 TOS No. 8% 


Commodore AMIGA 1000 _ $1,000 $3,000 __.25—4 68000 7.16 AmigaDOS _ Yes 10/85 


Macintosh 
Enhanced 
Macintosh 


Apple 
1,700 


.25-4 


68000 7.8 MacOS ___No 4/86 


| Plus $2,200 4 68000 7.8 MacOS _No 1/86 
? 


“Jonathon”’ ? 2- 


Workhorses Data-Com Mustang-020 4,000 2 


68020? #416? Mac OS? 


Unix? 


OS-9 


Yes 3/87? 


68020 12-16 No 3/86 


Various _ VME bus $4,000—$20,000 .5-16 (various) 8—20 (various) Yes — 


Workstations Apollo Domain 


9,900—$70,000 2—16 


68020 12-20 Unix Yes 2/86 


Sun Sun Il $19,900 1—4 68010 10 Unix 4.2 Yes 11/83 


: Sun Ill 19,900 


Table 1: Comparison of representative 680xx systems 
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Benchmarks: 


System | Compiler Looptst (500) 


44.3 
29.4 
38.4 


25.6 
30.7 
30.7 
25.6 


37.4 
25.8 


~ Lattice 
Manx Aztec 16 
Manx Axtec 32 


Amiga 


Atari ST Aleyon 
Lattice 
Mark Williams 


Megamax 


Lightspeed 
Microsoft C 


Macintosh 
IBM PC 


Pointer (1500) 


37.5 
33.3 
35.1 


28.4 
30.7 
30.0 
35.3 


42.3 
30.9 


Sieve (140) 


81.7 
64.3 
80.7 


56.5 
62.3 
60.1 
53.9 


78.9 
60.1 


Fibtest (18) 


48.8 
35.1 
40.1 


31.2 
35.0 
37.2 
33.3 


45.4 
37.1 


Table 2: Representative C compiler benchmarks (in seconds) 
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UNIFY DBMS/DOS.The UNIX World Leader 
Brings A New Dimension Tod DOS Application Development. 


What happens as the DOS world expands? As a 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 
DOS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language—SQL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- 
of-the-art fourth generation 
report-writer. 

What’s more, with UNIFY 
DBMS, the potential of networked 
applications becomes a reality. Unlike 
DBMS systems which were originally 
single-user (and which have a long stretch 
to accommodate more users), UNIFY DBMS 
is a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
can grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 


for our free booklet: The New DOS World. 
(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 
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“How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 


Inventor and 
entrepreneur, 
Dick Erett, 
explains his 

= \_ company’s 

) a _) view on the 
protection of intellectual 


property. 
A even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing or ignoring 1s this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection Is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 
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Hard Disk Installation : Simply copy program ae 
to hard disk using DOS Command - Copy A:*.* C: 





the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
juding backing up sub-directories containing 


commands, inc 
program files. 





Program Back-ups : You may make as many copies of 


Networks : This product may be 
rks. Follow the same installation 
page 102 of this manual. The Block 
“with the normal operation of any 
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Soon all software installation procedures will be as straightforward as this. 


The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘““.. giving your software 
away is fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 


We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘(.-eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 





The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK 1s transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘<,. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 
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Circle no. 170 on reader service card. 


> VEDPLUS.TXT INSERT 


WINDOW 1 WINDOW 2 


VEDIT PLUS is an advanced editor that bidlist ( infile ) 
makes your program development and FILE *infile;” 
word processing as efficient and { 

easy as possible. VEDIT PLUS is 

simple enough to learn and use for 

the novice, [get has the speed, 

flexibility and power to satisfy the 

most demanding computer professional. 
VEDIT PLUS is particularily suited for 
writing all types of programs and 
lengthy documents such as reports or 
manuscripts. 


LINE 


eisai 


register |; 
struct node “ptr: 


for (i-O; i(termlim; i++) { 
fe} (gem ant- |} (olom Gm 1) B) ate) 74 oan 
if ('1) 
head = tail = ptr; 
else { 
tail -)next=ptr;: 
a3 tail=ptr; 
This shows how VEDIT PLUS can perform 
windowing. One window is used for 
word processing, a second for program 
development, and the third for 
commands. 


tail- ynext= NULL; 
foy- To Mam) 0g @r- 1 0¢- 1] Epi al-t-(el-10 B 


return ( termlim MD : 


WINDOW $ 


VPLUSPC .COM 
LIGHT .COM 
VEDIT INI 
LIGHT -HLP 


INSTALL .EXE 
.COM 
.DIC 


.DIC 


LIHARD .BAT T 


-NUM_ DISK 
BM THES 


PRINT -EXC INSTALL 


VEDIT PLUS has been the#1 choice of professionals 
since 1980. Our latest release is even better - you can 
open windows to simultaneously edit several files, ac- 
cess many editing functions with pop-up menus, use 
keystroke macros to speed editing, and run other pro- 
grams or DOS commands from within VEDIT PLUS. 


Whether your needs are program development, tech- 
nical writing or word processing, VEDIT PLUS is your 
answer. With over 40,000 users you can depend on 
VEDIT PLUS to perform consistently and reliably. It is 
simple enough to learn for the novice, yet has the 
speed, flexibility and power to satisfy the most de- 
manding professional. 


Compare. No other editor is as powerful - unlimited 
keystroke macros, instant ‘off-the-cuff command mac- 
ros utilizing a complete programming language, sin- 
gle command file comparison, special word process- 
ing and programming features. No other editor is as 
easy to use - on-line help, pop-up menus, 75 page 
tutorial, 380 page manual, and VEDIT PLUS is com- 
pletely customizable. 


Fully supports color windows on IBM CGA & EGA, and 
even windows on most CRT terminals (including CRT’s 
connected to an IBM PC). Available for IBM PC, TI 
Professional, Tandy 2000, DEC Rainbow, Wang PC, 
MS-DOS, CP/M-86 and CP/M-80. Order direct or from 
your dealer. $185 


“To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features and a 
good macro language. It offers many rewards for the 
dedicated programmer.” 

Computer Language, Chris Wolf, Scott 

Lewis, Mark Gayman 6/86 


“VEDIT PLUS is a wholly remarkable program: 
blindingly fast, extremely powerful, and highly flex- 
ible.” 

Profiles Magazine, Robert Lavenda 4/86 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. MS- 
DOS is a registered trademark of Microsoft. CP/M is a registered trademark of Digital 
Research. WordStar is a registered trademark of MicroPro. 


Circle no. 122 on reader service card. 
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VEDIT PLUS FEATURES 


e Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size, any CRT. 

e Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘If-then-else’, looping, testing, branching, user prompts key- 
board input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing 
lists e Print Formatter e Main menu 





CompuView 


1955 Pauline Blvd., Ann Arbor, MI 48103 (313) 996-1299, TELEX 701821 


ARTICLES 


A Mini Forth for the 


y exposure to Forth has Ae 
LY | been limited to the prosely- 
tizing of a few Forth fanat- 


ics, articles in various publications, 
and a fairly careful reading of Leo 
Brodie’s excellent book Starting Forth 
(Englewood Cliffs, N.J.: Prentice-Hall, 
1981). One of the attractions of the 
language for me is its fundamental 
simplicity. The interpreter, threader, 
and kernel of basic supporting words 
are small enough that (at least in the- 
ory) a single programmer can create 
a working system with a moderate 
amount of effort. I often toyed with 
the notion of doing it myself just for 
the learning experience (read _ that 
fun), but I never got to the point of 
making a serious attempt until last 
fall when I was assigned to teach for 
the umpteenth time our sophomore- 
level course in computer organiza- 
tion and assembly language. I was 
casting about for some way to gener- 
ate enthusiasm, which although not 
a prerequisite for teaching seems to 
make the process more enjoyable for 
all concerned. It struck me that build- 
ing a Forth system might make good 
programming exercises for my stu- 
dents. Thus was FLINT born. 

I thought, what the heck, I'll write 
a ‘no frills’ Forth and give the stu- 
dents the executable code (so they 
can play with it and see how it’s sup- 
posed to work) and the source code 
minus the modules they will be re- 
quired to write. By the time I’ve 
taught them enough about assembly- 
language programming to do the job 


G. Yates Fletcher, Dept. of Computer 
Science, North Carolina State Univer- 
sity, P.O. Box 8206, Raleigh, NC 27695- 
8206. Mr. Fletcher is an assistant pro- 
fessor of computer science. 
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68000 


by G. Yates Fletcher 


| to Forth makes the 


hala much more : 


_ palatable. 





snd enbuEh ae Forth that they un- 


derstand what is required, the semes- 
ter should be winding down. Amaz- 
ingly enough, everything went 
pretty much according to plan (albeit 
with considerably more sweat than I 
anticipated). As you might have 
guessed by now, the instructor prob- 
ably learned a lot more than the stu- 
dents, but that’s one of the reasons 
why I took the job. 

The product of this labor is not a 
standard Forth. As the venture was 
educational/recreational and not 
commercial, I never bothered to find 
out what the standards were or even 
look at the code for a real Forth. Thus 
I have chosen the acronym FLINT, for 
Forth-like interpreter and threader, 
to describe the system. FLINT was ba- 
sically reverse-engineered from Bro- 
die’s description of the language, so 
the implementation is probably a 
blend of novelty and naiveté. Never- 
theless, I feel that it is more than a 
toy, as I have used it to write a turtle- 
graphics program for my terminal; a 
full-screen editor (for Forth screens, 
of course); and a version of a standard 
prime-number seive benchmark 
(Byte, January 1983) that runs in a lit- 
tle more than 20 seconds on an 8-MHz 
68000, making it faster than any of 
the microcomputer Forths listed. 

I can conceive several levels at 
which this program may be useful. 
For those not familiar with Forth, it 
might help to be an introduction. It is 


| he inside approach 


no substitute for a good book such as 
Brodie’s, but it could make a worth- 
while companion. Those approach- 
ing Forth from the outside as another 
language are often put off or puzzled 


__| by its many idiosyncracies. The inside 
| approach to Forth as a program gives 


a complementary perspective that re- 
solves many of these mysteries and 
makes the language much more pal- 
atable. For do-it-yourselfers this pro- 
gram is evidence that novices can in- 
deed produce something workable. 
They can read enough of the descrip- 
tion and documentation to get a good 
idea of what needs to be done and 
blast off on their own, referring to the 
code perhaps when stuck or merely 
to confirm that their own way of do- 
ing things is better. Forth program- 
mers who don't have a version run- 
ning on their own 68000 machine 
might be able to revise and polish it up 
enough so that it resembles some us- 
able standard. Forth cognoscenti 
might be interested to know that 
FLINT produces what I have since 
learned is subroutine threaded code 
(which seems to be particularly ap- 
propriate for the 68000) as opposed to 
the more usual indirect threaded 
code. 


Overall Structure 
FLINT was written with several goals 
in mind: to provide students with an 
example of a well-structured, real 
world, assembly-language program; 
to illustrate the utility and power of 
the 68000 instruction set and address- 
ing modes; and to test the theory that 
Forth is more naturally understood as 
a program rather than as a language. 
I've made a fairly serious attempt 
to structure and comment the code 
properly. Because everything is in 
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there somewhere, much can be 
learned (at least in theory) by reading 
the program carefully. In fact, sever- 
al of my students have intimated 
(very discreetly) that they found the 
code much less confusing than my 
explanations of it. The 68000 assem- 
bly code comprises a minimal kernel 
of less than 500 lines and is arranged 
as shown in Table 1, below. 

FLINT requires some basic BIOS sup- 
port from the host in the form of 
macros that users must tailor for 
their own machines and resident sys- 
tem software. My system is a Sage II 
(now Stride), which has two floppy 
drives, 512K RAM, and 64K PROM and 
runs on an 8-MHz 68000. The PROM 
contains all the necessary BIOS sup- 
port as well as a monitor/debugger 
that furnished an excellent environ- 
ment for developing and running 
FLINT. Macro definitions for my sys- 
tem are in Listing One, page 52. 


Interpreter and Dictionary 
The token is the basic unit processed 
by the interpreter. Tokens are not ob- 
tained directly from the terminal but 
are taken from an 80-character line 
buffer. After prompting the user, rou- 
tine LINE (Listing Two, page 52) fills 
the line buffer from the terminal and 
terminates upon receiving a carriage 
return character. TOKEN takes its in- 
put from the buffer and recognizes 
the blank as a token delimiter. The 
carriage return embedded in the buff- 
er (the one that terminated LINE) is 
seen as a legal token whose execution 
returns control to LINE. In support of 
its buffer-filling function, LINE recog- 
nizes and handles backspaces. 

The interpreter is composed of sev- 
eral routines whose operation forms 
an instruction cycle fed by the user 
interactively. The instructions are 
small modules of code called words 
whose actions are normally directed 
at data (or pointers to the data) resid- 
ing on a parameter stack. The words 
are identified by short alphanumeric 
strings (tokens) that are symbols or 
English words that usually describe 
or are related to the action they per- 
form. The words are arranged in a 
linked list in which each node con- 
tains the identifying token, a link 
pointer, and the code defining the 
word's action. This linked list is 
called the dictionary. 

A dictionary entry starts with the 
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identifier, which is a 4-byte value. It 
consists of the length and the first 
three characters of the name of the 
word being identified. For example, 
if the word were EXECUTE, the identi- 
fier would contain a 7 and then the 
characters EXE. 

The next field is the link pointer, 
which is a 2-byte field containing the 
address of the previous word's identi- 
fier. Thus a dictionary search always 
starts with the most recently defined 
word and works backward. For larg- 
er systems you might want to make 
the link pointer a 4-byte value or per- 
haps make it a relative value instead 
of an absolute address. 

After the link pointer is the code 
field, which contains the machine 
code that runs when the word is 
executed. 

The outer interpreter is a loop that 
waits for and accepts input tokens, 
searches the dictionary until a match 
is found, and extracts the address of 
the corresponding code. The address 
can be sent to the inner interpreter 
for direct execution. If a token is not 
in the dictionary, it is assumed to rep- 
resent a number in the current base, 
and its value is extracted and placed 
on the stack. If this attempt fails, an 
error is assumed and the WHAZZAT 
token is invoked. 

Words can be defined as well as ex- 
ecuted. The interpreter has an alter- 
nate compile mode (the standard 
mode is execute mode). The inter- 
preter’s primary task remains that of 
extracting the code address of an in- 
put token. When in execute mode, a 
JSR to this address is executed as be- 
fore. But when the interpreter is in 
compile mode, a JSR to the code ad- 
dress is written into the dictionary. 
Execution is deferred until the word 
being defined is invoked in execute 
mode. Any number encountered in 
compile mode is handled by generat- 
ing code in the dictionary that will 
push the value onto the stack at exe- 
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cution time. These compiled num- 
bers are called literals. Additional 
support is provided for a submode in 
which words can be defined directly 
in machine code. 


How FLINT Works 

For a concrete example of how FLINT 
works, let’s look at the activity that oc- 
curs as the first word in the inner 
shell, CONSTANT, is defined. Envision 
using this word interactively as 
follows: 


10 CONSTANT TEN 
or 
12 CONSTANT DOZEN 


CONSTANT will thus be invoked to de- 
fine words that are constants. If, for 
example, you invoke the word TEN, 
you will expect it to push the number 
10 onto the stack; if you invoke DOZ- 
EN, you expect 12 to be pushed; and 
so on. Let’s call TEN and DOZEN in- 
stances of CONSTANT. Thus when 
CONSTANT is invoked, it will take the 
value of the instance from the stack 
and the name of the instance from 
the input stream. 

Now look at the definition of CON- 
STANT to see how this activity is to be 
directed. The defining string is 


: CONSTANT TOKEN HEADER LITERAL 
CODE 3AFC 4E75 : 


The outer interpreter, operating in 
execute mode, picks up the token “:” 
finds a match in the dictionary, Be, 
proceeds to execute it. Examining the 
code for “:’’, you see that a subroutine 
call USR) to TOKEN will be excuted. 
The action of TOKEN, of course, is to 
pull in the next token from the input 
stream, and in this case it will be the 
token CONSTANT. The next JSR is to 
HEADER, whose action is to produce a 
dictionary header for the newly cap- 


Words supporting execute mode: TOKEN, SEAR oH, oe EXECUTE, WHAZZAT 
Words Serge compile mode: COMPILE, hpi IMMEDIATE, ’ i Ce oe - S - 


LITERAL 


System variables: BASE, CBLOCK, EDBUF, DICT 


Words supporting disk I/O: LOAD, GO, SAVE, rina 
Words supporting terminal output: TYPE, ”.”,”.S” 
ee words: 1 QUIT, LOGOFF 





Table 1 1: Sieariseoranl A 68000 dois nodee in ae 


68000 MINI FORTH 
(continued from page 23) 


tured token CONSTANT. The remain- 
ing activity initiated by the definition 
will produce its code field. 

The last activity of ‘:” is to set the 
compile flag, FCOLON, and return to 
the outer interpreter. The interpret- 
er pulls the next token, TOKEN, from 
the input stream and extracts its code 
address. Because the interpreter is 
now in compile mode, a JSR to TOKEN 
will be written in the dictionary— 
that is, into the code field of CON- 
STANT. This means that the first ac- 
tivity of CONSTANT, when it is itself 
executed (called execution-time be- 
havior), will be (surprise, surprise) to 
pullin the name of the instance from 
the input stream. In like manner a 
JSR to HEADER will become the next 
part of the code for CONSTANT, so 
now the execution-time behavior of 
CONSTANT has been defined up to 
the point where a header for the in- 
stance has been created. It is now 
time to define the execution-time be- 
havior of CONSTANT that will define 
the execution-time behavior of its in- 
stances. Thus you must direct CON- 
STANT to take the value of its instance 


from the stack and write code in the 
dictionary that upon execution will 
place this value on the stack. This is 
an exact description of what LITERAL 
does, so its inclusion in the definition 
solves the problem neatly. 

The activity CONSTANT must per- 
form that has not yet been coded is to 
close the definition of its instance. At 
this point in the definition process, 
the outer interpreter, in compile 
mode, picks up the token CODE. A 
careful examination of the header for 
CODE shows that its listed token length 
is 132, which is 128 more than it 
should be. This is no accident. It is in 
fact the manner in which words are 
tagged as immediate, meaning that 
they are to be executed even when 
the interpreter is in compile mode. 
The necessity for such words should 
be obvious because otherwise, for in- 
stance, there would be no good way 
to terminate a definition. (When TO- 
KEN picks up an immediate word, it 
sets the immediate flag, FIMMED, to let 
the interpreter know that the word is 
to be executed.) CODE sets the system 
base to 16 (hex); sets the code flag, 
FCODE; and returns to the interpreter. 
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When the tokens 3AFC and 4E75 are 
picked up, they are not found in the 
dictionary. Thus each one is sent in 
turn to NUMBER, which extracts its 
proper hex value and places it on the 
stack from where the interpreter 
(now in code mode) copies them into 
the dictionary. The code 3AFC 4E75 
translates as MOVE.W #04E75H,(A5)+. 
Thus the final activity in the run-time 
behavior of CONSTANT is to copy 
04E75H into the dictionary definition 
of the instance. Because 4E75 is the 
code for RTS, this activity will effec- 
tively close the definition of the in- 
stance. All that remains is to close the 
definition of CONSTANT. This is the 
job of “;’, which resets the system 
base to 10, clears the compile and code 
flags, and writes an RATS into the 
dictionary. 

Well, there you have it: just a sim- 
ple little definition. Readers new to 
Forth (if there are any who have 
made it this far) probably feel that the 
claims for its simplicity are highly ex- 
aggerated, and even those with some 
familiarity may find themselves a bit 
glazed over. The bad news is that the 
operation of the FLINT compiler is of- 
ten a fairly complicated activity. The 
good news is that it seldom gets any 
more complicated than the example 
given here. Complexity is after all a 
relative thing. Would anyone care to 
write a step-by-step explanation of 
the operation of a Pascal compiler on 
a segment of code that invokes most 
of its major machinery? 

For beginners the definition of 
CONSTANT is as much a puzzle as it is 
an example. Understanding it re- 
quires clear thinking and a careful 
reading of the code involved. This is 
in fact one of the major reasons for 
discussing it. FLINT’s interpreter/ 
compiler is put to work at three lev- 
els. At one level the word CONSTANT 
is being compiled. To understand the 
activity at this level, however, you 
must see through to the level at 
which CONSTANT will be executed. 
This level itself must be understood 
in terms of the activity that will occur 
at the next level—that is, when a par- 
ticular instance of the word is execut- 
ed. The activity at all of these levels is 
mediated by the same interpreter. 
The code defining its basic structure 
occupies half a page, and many of the 
supporting words—for example, EXx- 


ECUTE, COMPILE, HEADER, “‘:”’, CODE, 
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;, and LITERAL—are only two or 
three instructions long. Finally, if 
you stand back from the example a 
little, you see that an entire data type 
has been created by a nine-word 
statement. I feel that anyone who un- 
derstands the simplicity underlying 
this example has a firm grasp of 
FLINT and should have no real trou- 
ble mastering Forth. 


The Inner Shell 
Once the embryonic FLINT system is 
running, it is ready for a big meal of 
nourishing words that will give it 
more size and power. These inner 
shell words support: 


¢ definition and manipulation of con- 
stants, variables, and arrays 

¢stack manipulation and _ stack 
arithmetic 

¢structured control for branching 
and looping 


Listing Three, page 58, contains the 
inner shell words. Many of these 
words are defined directly in ma- 
chine code (with the assembler mne- 
monics given as comments), so you 
might ask why they are not placed in 
the kernel and assembled as part of 
the basic system. My reasons for not 
doing so are primarily pedagogical. I 
wanted to maintain as much as possi- 
ble the purity of the kernel to under- 
score its elegance and simplicity. In 
addition, the words, most of which 
are very short, seem to me to be more 
readable in Forth format than they 
are in assembly-language format. 
This representation, even allowing 
for comments, is much more com- 
pact because the work of building the 
headers is left to the system. 

Structured control in Forth is di- 
rected by immediate words, placed 
in colon definitions to effect the com- 
pilation of appropriate conditional 
branching instructions. The flow of 
control is conditioned by values on 
the stack that act as flags. A zero val- 
ue means false, and any nonzero val- 
ue means true. As an example let’s 
define the word ODD, which takes a 
number from the stack and prints an 
asterisk if it is odd: 


: ODD 2 MOD IF 42 EMIT THEN ; 


The action of JF when ODD is execut- 
ed is to pop a value (assumed by IF to 
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Others have tried. Finally, a WINDOW tool for the 
serious C developer. Introducing ASPEN SCIEN- 
TIFIC’S CURSES WINDOW DEVELOPMENT 
PACKAGE. 
Oo UNIX System 5 compatible function library 
O Choice of Microsoft, Lattice, Computer 
Innovations or DeSmet compilers 
O IBM EGA, CGA and monochrome displays as 
well as special modes for IBM BIOS and Micro- 
@ soft ANSI driver compatibles (text modes only) 
MS-WINDOWS compatible using BIOS mode 
O Full featured keyboard support 















































oO Lightning fast, flicker free memory map output 
for IBM PC/XT/AT and compatibles 


4 CURSES library can be ported to the compiler 
and system of your choice 


oO Over 115 fully documented functions and 
macros 


Rnovicc<it Geko 
O Includes auto wordwrap, full color and special 
Lirias isew ik extension routines for PCs 


Set eS ee What can all these features do for you? CURSES 
checks display types at run time so your source 
code does not have to be modified to work with 
different displays* And with BIOS and ANSI 
support, your screen interface can run on 
virtually any PC using MS-DOS 2.0 or later. 
CURSES will enhance your product’s human 
interface and save you time and money! 


Let Aspen Scientific’s CURSES decorate your 
product. 


Call and order NOW, only 1000 copies will be sold 


at the low price of §89 00. 


Requires DOS 2.0 or later, 192K, 1 Disk Drive. 
*With use of run-time video attribute macro directives. 


J 


ASPEN SCIENTIFIC 


P.O.BOX 72 WHEAT RIDGE, 
COLORADO 80034-0072 (303) 423-8088 


42U WILIPFIGul 
in Hit Tom Toe tyPanu’ pee 
Checks disieOe* noi 


Microsoft, MS-WINDOWS and MS-DOS are trademarks of Microsoft 
Corporation. IBM is a trademark of International Business Machines 
Corporation. UNIX is a trademark of Bell — igre isa es 
Lattice, Inc. DeSmet is a trademark of DeSmet Software. Computer | 
Sonar is a trademark of Computer Innovations, Inc. Circle no. 360 on reader service card. 
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Windows 
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Hi Total Screen Contro! 


C-scape is a combination screen generator and library of 
screen I/O functions. Written for C programmers, C-scape 
brings a fresh approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your own. 


Hi Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scape’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


Mi Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 
functioning and complete program in a fraction of the time 
spent coding screens from scratch. 


C-scape’s extensive library includes just about all the data 
entry and display functions you'll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


Oakland Group, Inc.(U) 


675 Massachusetts Avenue, Cambridge, MA 02139-3309 


@ Bridges to Power 


C-scape includes examples of how to bridge to other 
powerful tools such as c-tree and db__VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
TransLisp Plus and other packages that support calls to C. 


@ Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to 
write for programmers in a hurry. A short introduction uses 
helpful examples to explain the C-scape design. Each func- 
tion is documented separately. An index makes reference 
easy, and a quick-reference card provides a synopsis of 
each function. 


M@ Source Code Included/Portable/No 
Royalties/No Runtime License 


Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 
machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


M@ Easy Prices/Risk-Free Terms 

Try C-scape for 30 days. If you are not satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 
See why some very major groups are standardizing on 
C-scape. 

C-scape (Lattice/Microsoft/others) 
C-scape with Dan Bricklin’s Demo Program $249 


Please add $3 for shipping; Massachusetts orders add 5% 
Sales tax. 


—<) CALL TODAY! 
617-491-7311 
mae 800-233-3733 
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weve gota $160 surprise. 


Turn your PC into a 
multi-user system. 


Convert your IBM PC-AT 
(or compatible) into a multi- 
user/tasking UNIX work 
station—at absolutely the best 
price anywhere, any time. 
Based on the Al&l-certified 
UNIX System V/286, the 
MICROPORT SYSTEM V/AT 
is designed for use in vir- 
tually any computer environ- 
ment, from office automation 
to software development. 


Over 200 utilities 
come standard. 


Grep, awk, sort, split, cut, paste, vi and 
ed (and many more) now let you search 
and modify files, make use of electronic 
mail, emulate terminals, calculate elec- 
tronically, convert data and publish. 

SYSTEM V/AT is more than a look-alike. 
It was derived from AT&I’s own UNIX 
System V release 2 iAPX286. It thereby 
contains standard System V features the 
competitors dont support, such as the 
powerful symbolic debugger, sdb, the 
shell-layering job-control facility and the 
F77 Fortran compiler, as well as program- 
ming tools such as ctrace, cflow, and bs. 
Also standard is File System Hardening 
which greatly reduces data loss in a power 
failure. 


Want some more features? 


e Console driver providing ANS] terminal 
interface for monochrome, CGA, 
Hercules and EGA cards. 


e Multiple Virtual consoles allow up to 
four virtual windows of operation. 


e Record and File Locking 


e Supports the 286's 16 megabyte virtual 
address space and fully utilizes its other 
advance features. 


e Supports all standard IBM drive types 
and most non-standard hard-disk 
drives. 


e Requires only one hard-disk partition, 
and allows DOS to reside on the same 
hard disk. 


e Provides utilities to transfer files to-ana- 
from DOS file systems. 


UNIX and DWB are trademarks of AT&T 
IBM and IBM PC-AT are trademarks of IBM CORPORATION. 
SYSTEM V/AT is a trademark of MICROPORT SYSTEMS, INC. 
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e Dynamic disk buffer allocation provides 
RAM disk performance for systems with 
large memory configuration. 


e Runs on virtually all PC-AT clones. 


e Binary compatible 
with the AT&I 6300 
Plus UNIX System. 


Super software- 
development 
environment 


Weve provided everything: Make, 
yacc, lex, sccs, cflow, ctrace plus every 
standard System V software-develoopment 
tool. The F77 Fortran compiler. And the 
AT&l Portable C compiler for the 286. Both 
C and Fortran compilers generate 287 in- 
structions directly—for systems not con- 
taining 287 math coprocessors, a kernel- 
resident IEEE-compatible 287 emulator is 
provided. The large-model code produced 
by the compiler is among the densest and 
fastest currently available. 






SYSTEM V/AT 


(] RUNTIME SYSTEM Includes the SYSTEM V/AT operation 


system and over 200 utilities, for two users. 
QUANT: 


_] SOFTWARE DEVELOPMENT SYSTEM The complete 
Software Generation System for 286 development. 


QUANT. _______ $169.00 
(] TEXT PREPARATION SYSTEM Includes nroff, troff, spell 


and other programs. 
QUANT. 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| © THE COMPLETE SYSTEM Contains all three packages 
| indicated above. 

| QUANT: 
| 
| 
| 
| 
| 
| 
| 
| 


1 OPTIONAL three to eight-user upgrade. 
QUANT. 


Subtotal: 


(CA residents add 6.5% tax per copy): 


Shipping and handling charges (In the USA, 


$14.00; in Canada, $18.00; and in Europe, $110... .: 
Eig) OL) | nl oe 


$160.00 


$169.00 


$439.00 


$99.00 





So, how do we do it? 


MICROPORT offers SYSTEM V/AT ata 
fraction of the price of the competitors 
simply because we build on the generic 
System V/286 product from AT&I. This en- 
tire utility package from the certified 
release has been copied directly to 
SYSTEM V/AT—without so much as a 
recompile. Not only does this mean that 
MICROPORT can offer SYSTEM V/AT ata 
remarkable low price, it also guarantees a 
level of quality present in few (if any) other 
UNIX-system implementations. (And, since 
our staff was part of the group that im- 
plemented the standard System V/286 
port for Intel, MICROPORT can offer com- 
prehensive support for the system, as 
well.) 


And a dollar change 


The price is even better than you 
thought. Order right away and welll return 
one silver dollar just as rapidly, with your 
product shipment. (If youd like a little more 
time well apply that dollar to the cost of a 
brochure—which we'll send right away 
too.) 


NOTE: Educational institutions—Call 
about our nominally-priced site licensing 
and source code 


60 DAY MONEY-BACK GUARANTEE 


_ To order: Complete the information below. Your 
SON attractively-packaged and fully-documented order will be 
% shipped within two weeks. 


MICROPORT SYSTEMS, INC. 

4200 Scotts Valley Drive 

Scotts Valley, CA 95066 

408/438-UNIX or 800/PC2-UNIX (outside CA) 


NAME 


TELEPHONE 


ADDRESS 


CITY 


STATE ZIP 





COUNTRY 
O VISA © MASTERCARD (© BANK DRAFT © CHECK 
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EXP DATE 








1 Send a brochure only and keep me on your mailing list, 
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68000 MINI FORTH 
(continued from page 24) 


be a flag) from the stack and test its 
value. If the value is false, execution 
continues at the word following 
THEN in the definition; otherwise, ex- 
ecution continues with the word fol- 
lowing IF. In the above definition, the 
phrase 2 MOD simply furnishes the 
proper flag for JF to “eat.” The ac- 
tions of JF and THEN when ODD is 
compiled (their compile-time behav- 
ior) must ensure that they have the 
desired effect when ODD is executed 
(execution-time behavior). Thus the 
definitions of IF and THEN will define 
their compile-time behavior, but 
they must be understood in terms of 
their execution-time behavior as 
well. An important point to remem- 
ber here is that these words, as well 
as other control words, are not to be 
invoked directly; they act within def- 
initions to achieve their effects. 
Another control word, ELSE, can be 
used optionally with JF and THEN. If, 
for example, you wish to redefine 
the word ODD so that its action is to 
print the value of an odd number or 
else drop the number, you might try 


: ODD DUP 2 MOD IF . ELSE \ THEN ; 


The execution-time behavior of 
ELSE is, as you might suspect, to trans- 
fer control to the word following 
THEN. A subtle point here is that now 
IF must transfer control to the word 
following ELSE rather than to the one 
following THEN when ELSE is present. 

FLINT provides two structured loop 
control mechanisms: DO... UNTIL 
and DO... WHILE...LOOP. The exe- 
cution-time behavior of UNTIL is to 
eat a flag and pass control back to the 
word following DO if its value is true. 
Otherwise the loop completes when 
control passes to the word following 
UNTIL. WHILE, on the other hand, 
makes an exit to the word following 
LOOP if its value is false. LOOP always 
passes control to the word following 
DO. (Note that FLINT’s usage of these 
words is different from standard 
Forth’s; they seem to make a little 
more sense to me this way.) 

Nowhere, I feel, is the elegance and 
power of Forth’s programming para- 
digm more in evidence than in the 
definition of the lexicon of words 
supporting FLINT’s structured con- 
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trol. The words ?>, BRA>, BEQ>, 
and BNE> form the raw material for 
the tests and branches, and the 
words MARK, SPLIT, and JOIN provide 
the tools for assembling them. Each 
of the control words is then built eco- 
nomically by a single defining word 
or phrase, and yet when they are 
used any of the resulting control 
structures can be nested to arbitrary 
depth within any of the others! 


Forth’s elegance 
and power 
is evidenced by 
the lexicon of 
words supporting 
FLINT’s 
structured control. 


There remains the problem of en- 
tering these definitions interactively. 
In theory this is no worse than enter- 
ing them into an assembly-language 
code file—except of course that all is 
lost when the system is turned off or 
(as is more likely) crashed by the nov- 
ice user. My own approach to the 
problem was to try to find a way to 
Save an image of the augmented sys- 
tem. As it turns out, all that is neces- 
sary for saving the state of the system 
is to preserve the contents of the in- 
ternal dictionary pointer, register A5, 
which points to the next vacancy in 
the dictionary. (This happens to be 
the area used by TOKEN as temporary 
storage for the words that it extracts 
from the line buffer.) The word LOG- 
OFF accomplishes this task by saving 
AS in the system variable BUFPNT, 
from which it is loaded each time 
FLINT runs. For this solution to work, 
you must have the means (via a moni- 
tor/debugger, for instance) to save 
and reload the augmented system in 
place of the original. Lacking such a 
tool, you should probably just bite the 
bullet and build the inner shell 
words into the source in the manner 
of the kernel words so that they will 
be assembled directly in the dictio- 
nary. This is tedious work, but it is 


not difficult if you understand the 
dictionary structure. 

Ultimately, of course, it would be 
nice to dispense with these primitive 
methods and be able to create and 
edit disk-resident files of FLINT source 
text. In fact, the words SAVE, LOAD, 
and GO are included in the kernel 
system to support this very activity. 
The word GO directs the outer inter- 
preter to take its tokens from a 1K re- 
served area known as the disk/edit 
buffer instead of from the line buff- 
er. After the outer interpreter has ex- 
hausted the contents of this buffer, it 
will encounter the token INTERAC- 
TIVE, which has been placed in mem- 
ory just beyond the buffer area. Exe- 
cution of this word reinitiates the 
normal interactive input sequence 
and redirects the outer interpreter to 
take tokens from the line buffer. 
LOAD and SAVE allow the contents of 
this area to be read from or written to 
an absolute disk block called the cur- 
rent block, which is specified as the 
value of the system variable CBLOCK. 
A description of these words begs the 
obvious question of how usable text 
gets into the buffer (or on disk) in the 
first place. 

My own solution was to use the ex- 
panded vocabulary of the inner shell 
to write a simple editor. Once this 
editor was built interactively, it could 
be used to place the text for the inner 
shell (as well as itself) in the edit buff- 
er for eventual storage on disk via 
SAVE. These blocks of text are called 
screens. Careful examination of 
FLINT’s initialization procedure will 
show that it loads and executes 
screen #80 (the initialized value of 
CBLOCK). This block and the succeed- 
ing ones are where the text for the 
inner shell and the editor have been 
placed. The word -> (defined on 
screen #80) directs the interpreter to 
increment CBLOCK and load and exe- 
cute the next text screen. It allows an 
entire string of screens to be executed 
without interactive direction. By this 
device the inner shell and editor are 
effectively booted by FLINT whenev- 
er it is invoked. The final result is a 
fairly mature system that contains 
most of the basic features of a true 
Forth and enough legitimate tools to 
be quickly expanded further. 

You can characterize the basic out- 
line of FLINT’s construction as a boot- 
strap procedure, which is really just 
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an accelerated and miniaturized ver- 
sion of the conventional process 
whereby low-level tools are used to 
build higher-level ones. The assem- 
bler is used to build an interactive in- 
terpreter/compiler (the FLINT ker- 
nel), which is used to incorporate a 
more sophisticated set of tools (the in- 
ner shell). These are then used to 
build an editor that allows the inner 
shell, the editor, and all future exten- 
sions to become permanent parts of 
the system. ? 


The Aftermath 
What, you might ask, did the teacher 
learn from all this? Well, for one 
thing, I relearned the value of igno- 
rance. I sailed pretty far into the pro- 
ject on the momentum of my initial 
enthusiasm. It lasted, in fact, until ev- 
erything was pretty much complete 
and working. Unfortunately, the job 
is not done when the program 
works. Cleaning up little messes, 
pruning, tuning, documenting, test- 
ing, and tracking down the subtle 
bugs—in short, the real work—was 
equally time-consuming but much 
less rewarding. Determination and 
good old-fashioned stubbornness had 
to finish what enthusiasm had be- 
gun. If I had fully realized in advance 
the amount of extra work involved, I 
would probably never have started. 
The moral here is that underestimat- 
ing the magnitude of a task is often a 
necessary condition for attempting it. 
The work is still not finished, of 
course. It never is. The stack is in the 
wrong place, the realization of the 
CODE submode is imperfect, and so 
on, and soon. Any program is only an 
approximation of what it should be. 
As far as Forth itself is concerned, 
there are several things to be said. I 
have acquired a terrific amount of re- 
spect for the ingenuity of Forth’s in- 
ventor, Charles H. Moore. Work of ge- 
nius is a term properly applied to 
such an engagingly simple yet im- 
mensely practical conception. I have 
not yet become, however, one of 
Forth’s true believers. Programming 
is not my profession—it’s actually 
more of a hobby—so I don’t have 
enough real knowledge or experi- 
ence to make any credible claims for 
its superiority or inferiority to other 
programming languages. I'll leave 
that issue to the people who make 
their money writing programs. My 
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opinion is that Forth’s programming 
paradigm of building the language to 
fit the problem allows (and indeed re- 
quires) a much more flexible and 
imaginative approach to program- 
ming problems than is called for 
with many more traditional lan- 
guages. 

The extra degree of freedom actu- 
ally seems to require more self-disci- 
pline on the part of the programmer 
to use it wisely, but it makes problem 
solving more fun. I find that my pro- 
grams tend to become compositions 
that I judge on aesthetic as well as 
functional grounds. 
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ARTICLES 


The OS-9 Operating 


he OS-9 operating system is a 
Tv modular, multiprogramming, 

multitasking operating sys- 
tem (OS) that runs on a large variety of 
Motorola microprocessors. Designed 
to be conceptually similar to Unix, it 
provides programmers with a good 
environment for the same reasons 
that Unix does: it uses a hierarchical 
file structure, allows command-line 
invocation of concurrent processes, 
has a similar implementation of pipes 
and filters, and permits device-inde- 
pendent I/O. The differences are 
more important than the similarities, 
though. 


Mean and Lean 

OS-9 differs from Unix in several sig- 
nificant respects. It is, to turn a phrase, 
“meaner and leaner” than Unix. It oc- 
cupies 12K of address space in its 
smallest 6809 incarnations and a little 
more than 48K in its full-blown 68020 
form. It is more dynamically change- 
able than Unix, allowing users to add 
I/O devices and update system mod- 
ules without rebooting a running sys- 
tem. It was also designed specifically 
to accommodate ROMed software eas- 
ily and, for a variety of reasons, has 
proven suitable for real-time and pro- 
cess-control applications. These and 
other features have assured OS-9 a 
niche encompassing a wide variety of 
markets. This article gives an over- 
view of the design of OS-9, particular- 
ly focusing on those aspects that make 
it special. I’ve included a pair of small 
application programs that are intend- 
ed to give you the flavor of the OS-9 
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Svstem 


by Brian Capouch 


OS-9 is meaner and 


leaner than Unix. 





programming environment 


Origins 

OS-9 originally had its genesis as part 
of a contract project between its de- 
signer, Microware Systems Corp., 
and Motorola, during the time that 
the hardware design of the 6809 pro- 
cessor was being finalized. The origi- 
nal concept of the project was to pro- 
vide a modern, structured version of 
the BASIC programming language 
that would take advantage of the fea- 
tures of the 6809. The resultant lan- 
guage, called Basic09, incorporates 
several features that were at the fore- 
front of language design; I'll review it 
briefly with examples later. 

As the language development pro- 
ceeded, Microware, with an eye to- 
ward the developing academic and 
commercial use of Unix, began devel- 
oping an operating environment to 
complement Basic09’s structure and 
modularity. Thus OS-9 was born. The 
language and the operating system 
appeared together in 1981, a few 
months after the 6809 came into pro- 
duction. As the design for the 68000 
was begun shortly thereafter, 
Microware began a port of OS-9 for 
that processor. 

As the 68000 and its successors have 
appeared in a multitude of applica- 
tions, OS-9 has been ported into hun- 
dreds of designs. OS-9 currently ap- 
pears on a wide range of machines, 
ranging from the 6809-based Tandy 


Color Computer to the GMXx Micro-20, 
a 68020-based system that provides 2- 
megabytes of RAM, SASI and floppy- 
disk interfaces, serial and parallel I/O 
ports, and a 68881 math coprocessor 
on a card that mounts on a 54-inch 
disk drive. This machine has a per- 
formance that outstrips a variety of 
machines, including the VAX 11/780. 


Named Modules 

Structurally speaking, perhaps the 
most significant feature of OS-9 is its 
extreme level of modularity (see Fig- 
ure 1, page 31). The underlying mod- 
el of the OS-9 address space is a dy- 
namic collection of named modules. 
When an executable module comes 
to life as a process, it is associated 
with a separate area of memory that 
is used to store its data. All code exists 
in what are known as memory mod- 
ules, whether located in primary or 
secondary store. A memory module, 
generally, is a segment of code sand- 
wiched between a header and a cy- 
clic rendundancy checksum. The 
header contains information about 
the module that is used by the OS 
both during the time that the module 
is resident in memory and during 
transfers to and from secondary stor- 
age devices. The checksum is used to 
verify the integrity of the module 
during transfers to and from second- 
ary store. 

Modules that contain object code 
must consist of position-independent 
code and are shared automatically 
between various users of the system. 
This avoids having copies of the same 
object code occupying multiple sec- 
tions of memory. In such cases, the 
OS assigns each user of the module to 
a different area of memory for data 
storage. 
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The first bytes of each module are 
“sync bytes.’’ These bytes, which 
consist of unused machine opcodes, 
are used at start-up to locate and load 
ROMed modules automatically. OS-9 
permits ROMed code to be updated 
dynamically, simply by loading into 
memory a module with the same 
name as the ROMed module but with 
a higher revision number in its head- 
er. The mixture of modules that con- 


Init 


Clock 


stitutes the ‘current environment” is 
more dynamic than in most other 
OSs, a feature that has opened up 
many application avenues. 


Lavered Hierarchy 

Like Unix, OS-9 is organized as a lay- 
ered hierarchy of functional mod- 
ules. Each component is a memory 
module, as described earlier. At the 
lowest level of the hierarchy is the 


OS-9 kernel 


kernel, aided by small init and clock 
modules as well as several others. 
The OS-9 kernel handles all basic OS 
functions, including process schedul- 
ing and dispatch, memory manage- 
ment, and basic I/O processing. It de- 
termines from the init module the 
exact characteristics of its environ- 
ment, which under OS-9 more than 
under Unix is likely to differ from 
one system to another. The clock 


Math 


ClO 
C library 


User trap 
handlers 


Pipe 
file 


manager: 
PIPEMAN 





Pipe 
descriptors 


Figure 1: OS-9 module organization 
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OS-9 OPERATING SYSTEM 
(continued from page 31) 


module interfaces to a tick generator 
for time-slice timing. 

At the next layer outward from the 
basic system modules lie the file man- 
ager modules. Each of these is de- 
signed to interface the I/O data 
stream into and out of the processor 
and a particular class of similar de- 
vices. Because the conditioning is 
performed outside the kernel, all 
data appears to the CPU as equivalent 
byte streams. The module RBF inter- 
faces to random-block-oriented de- 
vices, such as disks. SCF handles char- 
acter streams that are bound for both 
parallel and serial I/O devices, and PI- 
PEMAN coordinates data streams be- 
tween concurrently running 
processes. 

Each file manager conditions its 
data stream and passes it on to a de- 
vice driver module. A device driver 
must exist for each different type of 


hardware to which the system is in- 


terfaced. The driver, such as a disk 
controller or intelligent interface 


processor, may control a large num- 
ber of devices, and it is this level of 
the system that hides hardware de- 
pendencies from the lower levels of 
the OS. 

At the highest level of abstraction 
are the device descriptor modules. 
The system needs one of these for 
each individual I/O device. They con- 
tain device-dependent parameters, 
such as port addresses, disk blocking 
factors, control characters, and so on. 

The OS-9 unified I/O system is dy- 
namically configurable, making it 
quite different from Unix. Devices 
can be added to and removed from 
running systems on the fly, and 
through changing device descriptors, 
different devices can be added to 
the same port and referenced 
interchangeably. 

The 68xxx versions of OS-9 contain a 
complete math subroutines library 
that handles a wide variety of float- 
ing-point, extended-precision integer, 
and transcendental math functions. 
This package is called via the Trap in- 
struction. Programs that use the li- 
brary can be used without change on 


systems that implement hardware co- 
processors by changing the trap han- 
dler associated with the call. 


The User Interface 

The OS-9 user communicates with 
the OS through a user interface called 
shell. Shell is similar to Unix shells, 
although it differs in enough respects 
to wreak havoc with the neuronal 
patterns of folks who try to time 
share between the two different OSs. 
Many of the utility commands go by 
what Microware thinks are saner 
names than their Unix equivalents, 
and utilities that depend on file struc- 
ture and process specifics are of ne- 
cessity organized differently. 

One notable difference between 
the two shells is a set of OS-9 control 
characters that speed up line editing 
at the shell level. For instance, in 
other environments I have found my- 
self constantly wishing for a “repeat 
line’ control character (commonly as- 
signed to Control-A) that provides the 
function ‘‘reenter the contents of the 
line input buffer up to the most recent 
carriage return entered.” High-speed 
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to meet special needs. 
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cludes Windows for C, the windowing 
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matic full compatibility with Microsoft 
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OS-9 OPERATING SYSTEM 
(continued from page 32) 


interaction with any processor leads 
to a large number of typographical 
mistakes, such as misspelling directo- 
ry, file. or command names. The re- 
peat-line character allows for quick 
reentry of the offending line, then 
backspacing to the point of error 
without having to retype the preced- 
ing characters. Although this may 
seem a picayune advantage to some, it 
can become addictive. Other control 
characters allow canceling the line, 
pausing the screen display, interrupt- 
ing and canceling the currently run- 
ning program, and so on. The charac- 
ters that these functions map to are 
defined in the device descriptor and 
can be changed with the utility pro- 









syscall.a 
OS-9 Assembly constants - 








Memory used: 19k 
iapsed time: 2 second(s) 
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grams tmode and xmode. OS-9 also 
supports Unix-style.type-ahead on se- 
rial input devices. 


Development Tools 
OS-9 programmers can choose from a 
variety of programming languages 
and functional processors. The OS-9 C 
compiler is Unix compatible down to 
the standard library level, and most of 
the system calls accessible from C 
have been assigned names that corre- 
spond to their Unix equivalents. One 
OS-9 hacker reported developing a 
reasonably complex program that in- 
cluded several low-level I/O calls us- 
ing OS-9 C on his Radio Shack Color 
Computer. He then ported the pro- 
gram to a VAX 11/780, where it com- 
piled and ran without a single change. 
Besides C, there also exist compilers 


00001 *! Syscall Routine - From Microware Manual 

00002 use <oskdefs.d> 

00001 opt = 

00072 

00003 

00004 00000000 org 0 

00005 00000000 Return do.1 1 

00006 00000004 Lengthl do .1 1 

00007 00000008 Param2 do. 1 

00008 0000000c Length2 do.l 1 

00009 

00010 psect SysCall, (Sbrtn<<8) !Objct, (ReEnt<<8)!1,0,0,SysCall 
00011 

00012 0000 0c80 SysCall cmpi.1l #2,d0 check parameter count 
00013 0006 6640 bne.s ParamErr branch if error 

00014 0008 Ocaf empi.l #4,Lengthl(a7) is first parameter integer? 
00015 0010 6636 bne.s ParamErr branch if not 

00016 0012 Ocaf empi.1 #52,Length2(a7) 52 bytes of registers? 
00017 O0la 652c blo.s ParamErr branch if not 

00018 *! Now put model on the stack 

00019 00lc 343c move.w #Modllen/2,d2 number of words for dbra 
00020 0020 41fa lea Model+Modllen(pc),a0 get address of model 
00021 0024 6002 bra.s SysCo2 branch into loop 

00022 0026 3f20 Syscol move.w -(a0),-(a7) move a word 

00023 0028 Sica Sysco2 dbra d2,Syscol continue if not done 

00024 002c 2041 move.1 di, a0 point to function code 
00025 002e 3f£68 move.w 2 (a0) ,2(a7) set function code 

00026 *! Get the registers 

00027 0034 2a6f movea.l1 Param2+Modllen(a7),a5 get address of parameter 
00028 0038 4cdd movem.1 (a5)+,d0-d7/a0-a4 get register 

00023 003c 4e97 jsr (a7) call function 

00030 003e 48e5 movem.1 d0-d7/a0-a4,-(a5) copy register set 

00031 0042 4fef lea.l Modllen(a7),a7 clear stack 

00032 0046 4e75 rts 

00033 

00034 0048=323c ParamErr move.w #ES$Param, dl get error code 

00035 004c=003c orl #Carry,ccr set carry 

00036 0050 4e75 rts 

00037 

00038 0052=4e40 Model os9 FSFork model system call to put on stack 
00039 0056 4e75 rts 

00040 

00041 00000006 Modllen equ *-Model 

00042 00000058 ends 

00043 

Errors: 00000 





Code Example 1: Syscall, an OS-9 resident macro assembler 


86/08/18 14:02 Page 1 


for Pascal, FORTRAN-77, COBOL, and at 
least four different versions of the BA- 
SIC language. These include Basic09, 
the language for which OS-9 was orig- 
inally developed. Basic09 is an inter- 
esting and unusual language, and the 
example programs presented later 
demonstrate some of its features. Be- 
sides language processors, there is the 
usual plethora of functional proces- 
sors, such as text editors, formatters, 
and so on. The standard OS-9 assem- 
bler is a relocatable macro assembler 
that allows management of complex 
assembly-language code in a variety 
of libraries that can be assembled 
separately. 


More Differences 
A few sundry points also underscore 
the differences between OS-9 and 
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Unix. First, the OS-9 kernel is written 
in assembly language instead of in C. 
Although this restricts the OS to a 
small set of machines, it results in 
faster, more compact code. OS-9 also 
uses a different scheduling algo- 
rithm—one that results in noticeably 
faster throughput than most Unix im- 
plementations. Because of its modu- 
lar memory management and dy- 
namic configurability, OS-9 lends 
itself better to low-level control appli- 
cations and real-time processing. On 
the other hand, OS-9 does not swap 
programs into and out of primary 
store. Although this speeds up 
throughput considerably, it also 
means that once the total available 
RAM in a system is occupied, no more 
jobs can be run. OS-9 has no limit on 
the number of concurrently execut- 
ing processes—one user reports 
spawning more than 600 of them on 
his 68020 system before running out 
of memory. OS-9 users also report 
that the substantially smaller memo- 
ry requirements and faster speed of 
OS-9 suit it for many applications in 
which Unix is too large and slow. 


Basic09 

The example programs | have includ- 
ed with this article are designed to 
illustrate some interesting facets of 
OS-9. The Basic0O9 programming lan- 
guage is a highly modular implemen- 
tation of BASIC that is not only com- 
patible with most sophisticated 
versions of that language but also 
contains many structures that are 
seen in Pascal. It is an interpretive 
compiler that attempts to balance the 
better points of both translation pro- 
cesses. The language contains both an 
integral editor and debugger. Source 
code is compiled, a line at a time as it 
is entered, into an intermediate code. 


Syntax errors are reported to the user 
as each line is entered and can be im- 
mediately corrected using the editor. 
Programs consist of any number of 
named procedures in which a vari- 
ety of data types can be declared and 
built up into named Pascal-record- 
like structures. Parameters can be 
passed between procedures by ei- 
ther value or reference, and TRACE, 
PAUSE, and STATE statements allow 
for interactive debugging. 

The example programs illustrate 
some specific features: first, Basic09 
programs can call and pass parame- 
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ters to and from programs written in 
assembly language or compiled by 
other compilers. The program Syscall 
(Code Example 1, page 34) is a 68000 
program that allows a Basic09 pro- 
gram to perform system calls from 
within a procedure simply by passing 
a 68000 register image and an OS func- 
tion code. Because it is reasonably 
closely tied to the calling syntax for 
OS-9 assembly-language system calls 
and outside the scope of this article, I 
have chosen not to discuss it here and 
simply treat it as a black box. Proce- 
dure ShowCall (Code Example 2,below) 
illustrates how Syscall would be in- 
voked in a Basic09 procedure. In this 
case, I simply use the Syscall routine 
as a substitute for the high-level Ba- 
sic09 OPEN command. The system 
call, which opens the file for read, 
passes back a path number in the d0 
register, which is then assigned to the 
BasicO9 variable Path. 

The second example program, 
FormLetter (Code Example 3, page 
36), illustrates a Basic09 procedure 
that adds a front end onto a standard 
text formatter. In order to personal- 
ize a form letter that I was preparing 
for a basketball team I coach, I want- 
ed to incorporate names, addresses, 


PROCEDURE ShowCall 


and greetings from a demographic 
file into the body of a standard letter. 


My local implementation of the for- 


matter does not permit reading from 
outboard files into the standard data 
stream. I chose to put together tools 
that I already had at hand rather 
than do a ‘Swiss army knife’ modifi- 
cation to the text formatter. (At this 
point, please realize that I am well 
aware of the case for making a per- 
manent addition to the formatter but 
would have lost an example for this 
article.) 

The technique I chose was to create 
a pair of named pipes, one of which 
receives a stream of data headed for 
the formatter, the other one receiving 
its output. I then connected those 
pipes to file paths within the Basic09 
procedure via calls to the OS-9 shell. It 
was possible thereby to integrate my 
demographics with the body of my 
letter, sending the merged data as 
standard input to the formatter. In 
this example I could then send the 
output of the formatter to a file, but I 
could have just as easily invoked yet 
another pipeline to have it processed 
directly by my system’s print spooler. 
(BasicO9 commands to do so are en- 
closed as comments within the pro- 


INTEGER 


0000 

0001 (* Procedure to demonstrate System Call from Basic09 
0036 (* Define complex data type to represent registers 
0069 TYPE registers=d0,d1,d2,d3,d4,d5,d6,d7,a0,al,a2,a3: 
00A0 

OOA1 (* Declare necessary variables 

00CO0 DIM Path: INTEGER 

00C7 DIM Line:STRING[128] 

00D3 DIM IOPEN: INTEGER 

OODA DIM Regs:registers 

00E3 DIM FileName: STRING [48] 

0OO0EF 

OOFO (* Initialize Variables 

0108 (* IOPEN is OS-9 System Call ISOPEN: Open path to a file 
0141 IOPEN=$84 

0149 (* This is the file we'll be reading from 

0173 FileName="BOpen" 

017F 

0180 (* Set up register image for system call 

01A9 Regs .d0=1 

01B4 Regs .a0=ADDR (FileName) 

01C2 RUN Syscall (IOPEN, Regs) 

01D1 

01D2 (* Assign returned path number to Basic09 variable 
0205 Path=Regs.d0 

0210 

0211 (* Read and print file contents 

0231 WHILE NOT(EOF(#Path)) DO 

023C READ #Path, Line 

0246 PRINT Line 

024B ENDWHILE 

O24F 

0250 (* Use Basic09 interface to close file 

0277 CLOSE #Path 

027D END 


Code Example 2: Procedure to invoke Syscall 
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gram.) These concepts can be extend- 
ed in vastly more complex ways, all 
the while yielding the benefits of to- 
tally modular construction and inter- 
active program development. The in- 
teractivity of BasicO9 has left me 
consistently choosing it rather than C 
when portability is not a requisite, 
and I have found development to be 
much faster because of the interactive 
compilation, editing, and debugging. 


Conclusions 

I am tempted to call OS-9 the “poor 
man's Unix,” even though I have to 
marvel at the power of its most so- 
phisticated implementations, which 
are on par (or superior) to Unix run- 
ning on a VAX in terms of speed and 
memory utilization. The concept of 
named, automatically located memo- 
ry modules is an innovation that ex- 
tends its capabilities into process con- 
trol and real-time applications that 
are unsuitable for Unix, and its user 
interface and overall organization 
enable those familiar with Unix to 
adapt to its operation quickly. Its 
growing user base indicates that 
what was considered for many years 
an underground classic is now 
emerging from the shadows, and it 
should provide an interesting and 
productive environment for pro- 
grammers of machines based on Mo- 
torola processors for years to come. 

I would like to thank GMx Corp. for 
providing me with one of its Micro-20 
systems for evaluating that imple- 
mentation of OS-9. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600 ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 


Kaypro). 
DDI 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 
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PROCEDURE FormLetter 


0001 

0039 
005C 
008C 
O0A8 
OOA9 
00Cc5S 
OOCE 
OODE 
OOEA 
OOFD 
0104 
0110 
0117 
0118 
013D 
0143 
0144 
015¢C 
016F 
O17E 
O17F 
0190 
019¢C 
01A6 
O1A7 
01C4 
01D9 
O1DA 
O21E 
0230 
0252 
027B 
O28E 
02B8 

OZDF 
030A 
031F 

033E 

0374 

0394 

O3BA 
O3CE 

03D9 

O3ED 

O3FA 
0407 

0414 

O41A 
0427 

042D 
042E 
0454 

0460 

046A 
0476 
O47C 
047D 
04AB 
04B6 
04C0 
O4CA 
04CE 
O4CF 
04F8 
O4FE 
0509 
OSOF 
0515 

0517 
0518 
0544 
054B 
0558 

OSSE 
057B 
057D 
0581 

0585 

0587 


10 


100 


(* Formletter: Add a front-end to K & P text formatter 
(* Written by Brian Capouch, 7/86 

(* Define complex type to hold demographic info 

TYPE NameRec=Name, Addl, Add2, Greeting: STRING [80] 


(* Declare variable storage 

DIM Record:NameRec 

DIM NameFile, BodyFile: STRING [48] 

DIM Includer:STRING[10] 

DIM NamPath, SplPipe, InPipe, OutPipe: INTEGER 
DIM Counter: INTEGER 

DIM Line:STRING[256] 

DIM Index: INTEGER 


(* Trap out EOF coming down pipeline 
ON ERROR GOTO 10 


(* Initialize variables 
NameFile="Demographics" 
Includer=".us Body" 


(* Set up files 
OPEN #NamPath, NameFile: READ 
GET #NamPath,Counter 


(* Set up output path to file 
CREATE #SplPipe, "LettersOut":WRITE 


(* Send each set to formatter, with preface and suffix 
FOR Index=l TO Counter 7 
(* Set up pipes to text formatter 
(* This procedure “owns" this named pipe 
CREATE #InPipe,"/pipe/in":WRITE 
(* Now couple this pipe to text formatter 
SHELL “runb tformat </pipe/in >/pipe/outé" 
(* Open path to output pipe from formatter 
OPEN #OutPipe,"/pipe/out"™: READ 
(* Next two lines commented out 
(* They would send output to spooler instead of a file 
(* SHELL "spl -nj </pipe/Splin" 
(* OPEN #SplPipe,"/pipe/Splin":write 
(* Now process data 
GET #NamPath,Record 
RUN PrintHeading (InPipe, "7/24/86") 
WRITE #InPipe, Record.Name 
WRITE #InPipe, Record.Addl 
WRITE #InPipe, Record.Add2 
WRITE #InPipe 
WRITE #InPipe, Record.Greeting 
WRITE #InPipe 


(* Send some commands to the formatter 
WRITE #InPipe,".fi" 

WRITE #InPipe, Includer 

WRITE #InPipe,".bp" 

CLOSE #InPipe 


(* Get output from formatter, 
WHILE NOT (EOF (#OutPipe)) DO 
READ #OutPipe, Line 
WRITE #SplPipe, Line 
ENDWHILE 


send to spooler 


(* We return here after each EOF trap 
CLOSE #OutPipe 

NEXT Index 

CLOSE #NamPath 

CLOSE #SplPipe 


END 
(* EOF on pipe generates OS-9 Error #211 
ErrNo=ERR 
IF ErrNo<>211 THEN 
PRINT Beep; 
PRINT "System Error--->No. "+STRS$(ErrNo) 
END 
ELSE 
GOTO 10 
ENDIF 
END 


Code Example 3: Procedure to add front end to text formatter 
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se sd onan 
ign philosophy. The only problem 1s... 
what should we call it? 
It is easy to learn and use, like a panel 
generator, because it allows you to draw your 
text, fields, and colors on the video display. 
But we can’t call it a panel generator, 
because it supports full windowing and 
scrolling, and because screen and field 
information may be stored in your program 
files (EXE) rather than separate data files. 


It is flexible and powerful, like a library- 
oriented programmer’s toolkit, but you are not 
restricted to "visualizing" your data-entry 
windows as you type page after page of code 
to set up borders, fields, text and 
highlighting. Our innovative approach 
(called static windowing) eliminates the need 
for replication of static data in dynamic 
memory. 


It produces tight code, like a YACC (Yet 
Another Compiler Compiler), but you don’t 
have to tolerate a myriad of small program 
modules that need to be compiled and 
maintained. Instead, our "screen designer” 
creates Microsoft object files which you 
simply link with your applications. 


Add to this new, superior design philosophy 
the fact that it has more features, produces 
tighter code, and yields higher performance 
than any of the above. Throw in a clear, 
concise user manual, a thorough on-disk 
tutorial, and some example programs. Top it 
off with a utility program that documents 
each screen and another that allows you to 
prototype (or simulate) your application 
before you write a single line of code. Now, 
what would you call it? 


Let’s settle on a single word. 
Let’s call it the "best." 


But don’t take our word for it. Order your 
demo disk today. You will receive a copy of 
the screen generator, the tutorial, and some 
documentation on the utility programs and 
library routines. Then make the decision 
yourself. 


Or take advantage of our one-time . 
introductory offer and get $100 discount if 
you order before March 31, 1987. 


Call (713) 665-4109 for more information. 
Major credit cards accepted. 


eXcepsiagrs time. , 


coat 


Soi 


window, graphics characters, paint, jump-to- 
field, many cursor movement options, 
monitor switching, operating system calls, 
help. Set validation mode, highlight current 
field, scrolling by line or page, input mask, 
tabs, initial values. More. Up to 400 lines per 
screen. 


FIELD DEFINITION: 
Left-justify/right-justify/center, uppercase 
translation, built-in character validation, 
byte/integer/word/long/float/ 
double/string/date field validation, retain 
data, auto-erase, protected fields, input 
required, use commas, use zeros/spaces, 
margin bell. User-defined character 
validations, pattern-matching validations, 
picture validations, and field types. More. Up 
to 9999 fields per screen. 


LIBRARY ROUTINES: 
Open, close, move, display, and refresh 
windows. Allow user to edit data fields in 


window, or to view and manipulate a window 


but not change data stored in it. Pull-down 
and pop-up menus. Read screen object file 
from disk. Intercept keyboard filter. 
Override default key actions. Automatic and 
manual refresh. Switch display device, erase 
all data fields on window, plot data onto 
fields or entire screens, retrieve data from 
fields or entire screens, scrcen image dump, 
retrieve and modify screen and field 
attributes, locate field, force use of bios. 
Direct interfacing with some bios interrupts, 
including cursor and mouse control. More. 
Mnemonic and simple to use. 


REQUIREMENTS: 
IBM PC/XT/AT/JR or true compatible, DOS 
2.0 or later, at least 128K free RAM, and the 


Microsoft C, Pascal, or Fortran compiler or 
the IBM C compiler. Support is available for 
other C Compilers and the XENIX operating 
system. Call for specifics. 


IBM, IBM PC, IBM XT, and IBM AT are 
trademarks of International Business Machines. 


Microsoft and XENIX are trademarks of 
Microsoft Corporation. 


Circle no. 336 on reader service card. 


For More Information 


(713) 665-4109 
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Macintosh Buttons 


and 





Amiga Gadgets 


hen you put aside emo- 
Ww tional reactions to the Mac- 
intosh and Amiga comput- 


ers to take a more objective look at 
the two machines, it appears that, at 
least in concept, they are more alike 
than different. In addition to similar- 
ities in user interface standard, both 
use the 68000 microprocessor. Both 
have operating systems that are par- 
tially in ROM and partially on disk. 
Programmers who wish to adhere to 
the standard user interface make use 
of a set of system routines to create 
and manage windows, menus, 
graphics, and text. 

The functions that the Macintosh 
and Amiga system routines provide 
are not equivalent, however. The 
Macintosh, for example, provides 
text handling routines not found on 
the Amiga. By the same token, the 
Amiga libraries contain animation 
routines not found on the Macintosh. 
The disparity between the functions 
provided by system routines pre- 
sents challenges for programmers, 
especially if they are attempting to 
adapt software from one machine to 
the other. 

This article explores the details of 
the standard Macintosh and Amiga 
user interfaces, examines the system 
routines programmers use to create 
those interfaces, and discusses those 
system routines through a pair of 
sample 68000 assembly-language 
programs that support a portion of 
the standard user interfaces. 








Jan L. Harrington, 4002 Stearns Hill 
Rd., Waltham, MA 02154. Jan is an as- 
sistant professor in the Computer Sci- 
ence Department at Bentley College. 
She ts the author of Macintosh Assem- 
bly Language: An Introduction. 
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by Jan L. Harrington 


The Mac’s svstem 
routines support its 


user interface more 
completely. 





User Interface Standards 
The Macintosh standard user inter- 
face has caused many people to rede- 
fine what they mean when they say 
software is easy to use. You expect to 
be able to run a Macintosh program 
by double-clicking its icon on the 
Macintosh desktop. You expect to 
find at least Apple, File, and Edit 
menus present, and you expect those 
menus to behave in a consistent man- 
ner (they should “pull down’’ to ex- 
pose the menu items, some of which 
may be associated with a keyboard 
equivalent). You expect to be able to 
use scroll bars to move throughout a 
document and to be able to simulate a 
click on an OK button by pressing the 
Return key. The Macintosh user in- 
terface standard is clearly defined in 
Chapter 2 of Inside Macintosh,! the 
extensive technical documentation 
for the machine. 

The Amiga also supports a mouse- 
driven interface. Amiga applications 
that have icons can be run by double- 
clicking that icon from the Work- 
bench window with the left mouse 
button. Amiga menus also pull down, 
the result of right mouse button ac- 
tion. Menu items can be associated 
with keyboard equivalents, and 
Amiga software has appeared with 
scroll bars. 

The Amiga interface standard, 
however, is not as strictly defined as 
is the Macintosh standard. Sugges- 


tions for the interface do appear in 
the Intuition? manual, the part of the 
technical documentation that de- 
scribes the routines supporting the 
windowing environment. 

The window is central to both the 
Macintosh and Amiga. You can move 
windows about the screen (that is, 
within the same plane), move them 
relative to other windows on the 
screen (that is, from front to back), 
size them, and close them. All of 
these functions are initiated by 
mouse action on some portion of the 
window. Window movement within 
the plane is controlled by the drag re- 
gion, that part of the window's title 
bar not taken up by the window title 
or other graphics. A click of the 
mouse button on a box at the far left 
of the title bar will close the window 
(the Macintosh calls it a ‘“GoAway 
box,’ the Amiga a ‘“CloseWindow 
gadget’). The Amiga window title bar 
also contains, at the far right, gadgets 
that move the window from front to 
back (“depth arrangement gadgets’); 
Macintosh windows move back one 
layer when another window is acti- 
vated and brought to the front. In 
both machines, windows are sized 
with the overlapping boxes that ap- 
pear in the lower-right corner of the 
window (the Macintosh calls it a 
“grow icon; the Amiga calls it a “‘siz- 
ing gadget’’). 

Both the Macintosh and Amiga col- 
lect information and give warnings 
using special windows. The Macin- 
tosh uses ‘‘dialog boxes’ to collect in- 
formation and “alerts” to give warn- 
ings. For example, a dialog box will 
appear to accept the name under 
which a file should be saved, and an 
alert box appears if you attempt to 
close a document window without 
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saving its contents. The Amiga uses 
“requesters” to collect information 
and ‘‘alerts’” to let you know that 
something catastrophic has oc- 
curred. Requesters are analogous to 
dialog boxes, but whereas Macintosh 
alerts signal that a potential for harm 
occurs, Amiga alerts appear only af- 
ter it’s too late to recover. Amiga 
alerts are generally equivalent to 
Macintosh system alerts (generated 
by 68000 system errors). Usually you 
close requesters, dialog boxes, and 
Macintosh alerts by clicking on a 
small rectangle containing a message 
such as OK or Cancel. (The Amiga 
calls the small rectangles ‘‘gadgets’; 
the Macintosh calls them ‘“‘buttons,”’ 
which are a type of ‘“‘control.’’) 

Menus, too, are essential to both 
the Amiga and Macintosh user inter- 
faces. Macintosh menu titles are visi- 
ble at all times across the top of the 
screen in the ‘““menu bar.” The Amiga 
“menu strip,’ which also appears 
across the top of the screen, is visible 
only when you press the right mouse 
button. 

Menus on both computers pull 
down; the menu choices appear in a 
box below the menu title as you drag 
the mouse pointer over them. Amiga 
menu items may also have sub- 
menus, which appear when the 
mouse pointer is dragged over the 
menu item. In either machine, menu 
items can be associated with key- 
board equivalents—a single charac- 
ter that, when pressed in conjunction 
with a special modifier key (the com- 
mand key on the Mac, the solid A key 
on the Amiga), simulates the selection 
of a menu item with the mouse. 

Both computers maintain menu 
definitions as linked lists of data 
structures containing data needed to 
draw the menus. At any one time, the 
Macintosh supports only one menu 
list. You can make changes by insert- 
ing and removing menus from the 
list. The Amiga logically attaches 
menu lists to windows rather than to 
the screen, making it possible for 
many menu lists to be present in 
memory at any given time. Which 
menus appear when you depress the 
right mouse button therefore de- 
pends on which window is active at 
the time. 

A Macintosh program that adheres 
to the standard user interface has at 
least three menus. The Apple menu 
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appears at the far left of the menu 
bar; its title appears as an apple icon 
(an apple with a bite taken out of it). 
The Apple menu supports the Macin- 
tosh desk accessories. The second 
menu from the left is the File menu. 
The File menu opens, closes, saves, 
and prints files and exits from the pro- 
gram to the operating system. The 
third menu, the Edit menu, handles 
the text editing functions—Cut, Copy, 
Paste, Clear, and sometimes the Undo 
function as well. 


The Amiga 
does not 
provide routines to 
implement its 
own standard 
interface 
recommendations. 


Amiga programs that follow the in- 
terface suggestions made in the Intu- 
ition manual provide at least two 
menus in each menu strip. The left- 
most menu is the Project menu, 
which is analogous to the Macintosh 
File menu—it manages opening, clos- 
ing, saving, and printing of files as 
well as exiting from the program to 
the operating system. The second 
menu from the left is an Edit menu, 
which provides access to the same 
editing functions as the Mac’s Edit 
menu. 

Text editing standards are also an 
important part of both the Macintosh 
and Amiga user interfaces. Macin- 
tosh programs that support text en- 
try of any kind, including even the 
entry of a single line into a dialog box, 
support cut, copy, and paste opera- 
tions from a standard Edit menu. The 
editing functions are also present in 
programs that do no text editing be- 
cause desk accessories use Cut, copy, 
and paste even if an application does 
not. Amiga programs that require 
text entry (most notably word pro- 
cessors) support the same text editing 
functions as Macintosh programs do, 
but the absence of desk accessories 
means that Edit menus do not appear 


in programs that are not concerned 
with text. 


Implementation 

To explore the support the Macin- 
tosh and Amiga provide for their 
standard user interfaces, I wrote two 
programs in 68000 assembly lan- 
guage, one for each machine (see List- 
ings One and Two, pages 64 and 69 
for the Macintosh program and List- 
ing Three, page 69, for the Amiga 
program). The programs are more or 
less equivalent in function. Each 
opens a window for text entry (the 
Amiga program also opens a custom 
screen) and creates menus (three for 
the Macintosh, two for the Amiga). 
Each supports the entry of text from 
the keyboard. The programs both 
terminate if you either select Quit 
from the appropriate menu or click 
the mouse pointer on the box that 
closes the window. Both also make 
extensive use of constants and data 
structure offsets from the include 
files supplied with the Macintosh 
68000 Development System and the 
Amiga Macro Assembler, 
respectively. 

The Macintosh system routines are 
invoked through the 68000’s trap 
mechanism (all system calls are as- 
sembled to begin with %1010, which 
is then trapped by the microproces- 
sor). The trap mechanism retrieves 
the actual location of the routine 
from a jump table, which is loaded 
from ROM to RAM at system start-up. 
Calls to system routines are per- 
formed with trap macros, all of 
which begin with an underbar (for 
example, _GetRMenu). The trap mac- 
ros themselves are defined in the 
Macintosh’s include files. Macintosh 
system routines are organized into 
‘managers,’ which must be initial- 
ized before the routines are called. 
Lines 5—14 of Listing One initialize 
all the Macintosh managers. 

Amiga system routines are con- 
tained in libraries. All libraries ex- 
cept the exec must be opened before 
they can be used. This includes the 
intuition library, which is opened at 
the top of Listing Three with a call to 
the system routine OpenLibrary (lines 
44—51). Each library has a base ad- 
dress. Exec’s base is fixed and as- 
signed to the constant _AbsExecBase; 


- all other library bases are returned 


by OpenLibrary. System routines are 
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called as subroutines whose starting 
addresses are relative to the library 
base, which is placed in register A6 
before the call. Assuming that the 
correct address is in A6, calls to 
Amiga system routines are handled 
by the macro callsys (lines 4—6). 

The functional differences be- 
tween the two programs are the re- 
sult of the system routines available 
on the two computers. The Macin- 
tosh program, for example, has a 
menu the Amiga program does not. 
The Apple menu is provided for the 
Macintosh’s desk accessories. Imple- 
mentation of the desk accessories is 
handled completely by a series of 
calls to system routines. The text in 
the Macintosh window will word 
wrap because the routines that man- 
age the text editing environment 
automatically handle that function. 
The editing operations—cut, copy, 
and paste—have also been imple- 
mented because each is handled by a 
call to a single system routine. 

The Amiga does not support desk 
accessories and so has no equivalent 
to the Macintosh’s Apple menu. The 
Amiga also does not provide system 
routines for doing word wrap or the 
standard editing functions. There- 
fore, text entry in the Amiga window 
is exactly like using a typewriter. On 
the other hand, the Amiga window 
can be sized, moved about the screen, 
and moved back and forth in the 
plane. These functions are handled 
automatically by the Amiga’s operat- 
ing system; they do not need to be in- 
cluded in an application’s code. Per- 
forming the same operations on the 
Macintosh requires including addi- 
tional program code (calls to system 
routines). 

The Amiga program is more than 
twice as long as the Macintosh pro- 
gram. There are two major reasons 
for this. First, the Macintosh can ob- 
tain parameters for creating data 
structures (for example, windows 
and menus) from a resource file. A 
resource file contains templates that 
describe the contents (for example, 
items to appear in a menu), location 
(for example, initial coordinates of a 
window), and characteristics (for ex- 
ample, menu items that should ini- 
tially be disabled) of structures an ap- 
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plication will use. The Macintosh 
program's resource file (Listing Two) 
contains templates for the three 
menus and one window. Second, al- 
though both the Macintosh and the 
Amiga maintain data about program 
objects in linked lists of data struc- 
tures, Macintosh system routines per- 
form most of the structure initializa- 
tion and list management, whereas 
the Amiga leaves those functions to 
the programmer. The amount and 
type of programming required to 
achieve the same program function 
is therefore rather different on the 
two machines. You can see examples 
of these differences, especially in 
terms of creating menus and win- 
dows, when the two sample pro- 
grams perform event trapping and 
do text I/O. 


Creating Menus 

The Macintosh can create a menu by 
calling the system routine GetRMenu. 
GetRMenu reads the template from 
the resource file, allocates space in 
RAM for the menu record, and loads 
the data into the appropriate loca- 
tions in that menu record. Menu 
items are stored in a linked list. The 
routine requires one parameter (the 
resource file ID that identifies the 
menu) and space on the stack for a 
handle to the menu record. After the 
routine is called, an application pulls 
the handle from the top of the stack, 
where it has been placed by GetR- 
Menu. Initializing a menu record 
therefore requires four lines of code. 
The template for the Macintosh pro- 
gram's File menu, for example, ap- 
pears in lines 5—14 of Listing Two. 
The menu structures are actually ini- 
tialized in lines 29—32 of Listing One. 

Initializing a menu data structure 
for an Amiga program is considerably 
more complex. Assuming that the 
menu items are to be text rather than 
graphics, the text must first be loaded 
into intuition text structures. Each in- 
tuition text structure must be includ- 
ed in a menu item structure. The 
menu item structures are then assem- 
bled into a linked list whose head is 
incorporated into the menu data 
structure. 

In the program in Listing Three, 
the intuition text structures are ini- 
tialized in the subroutine SetText 
(lines 257 — 265), which is invoked by 
the macro passtext (lines 10—14). For 


each menu item, the text must be in- 
cluded in the program as a constant. 
The program must also allocate space 
for the intuition text structure (see 
lines 354—393 for the data structures 
associated with the Amiga program's 
menus). The intuition text structures 
for the Project menu, for example, 
are handled in lines 92—98. 

Once the intuition text structures 
have been initialized, the menu items 
are initialized and chained into a 
linked list. The actual initialization is 
performed by the subroutine Setltem 
(lines 266— 277), which is invoked by 
the macro passitem (lines 15 — 22). It is 
up to the programmer to allocate 
storage for each menu item data 
structure and to load the list pointers 
correctly. The Project menu's menu 
items are initialized and linked in 
lines 99—111. 

The final step in the process is the 
initialization of the menu data struc- 
ture. All the menus that will be pre- 
sent in a single menu strip are main- 
tained in a linked list. Therefore, the 
initialization must include setting a 
pointer to the next menu in the list. 
The programmer must also deter- 
mine coordinates for the physical po- 
sition of the menu in the menu strip. 
The Amiga program sets up the Pro- 
ject menu in lines 112— 123. After the 
Project menu has been completed, 
the entire process is repeated for the 
Edit menu. 

The Macintosh requires the use of 
a separate system routine to insert 
menus into the linked list of menus 
that will appear in the menu bar at 
any given time. JnsertMenu handles 
the insertion of a menu into the 
menu list. A programmer supplies ei- 
ther the handle of a menu after 
which this menu should be inserted 
or a parameter indicating that this 
menu should be last (that is, right- 
most). Lines 33 —35 of Listing One, for 
example, insert the File menu into 
the Macintosh’s menu list. 

Merely inserting a menu into the 
menu list does not, on either machine, 
display the menu. The Macintosh rou- 
tine DrawMenuBar (‘see line 43 in List- 
ing One) is equivalent in function to 
the Amiga routine SetMenuStrip (lines 
149— 152 in Listing Three). The Macin- 
tosh routine actually displays the 
menus currently in the menu list on 
the menu bar; the Amiga routine at- 
taches the menu list to a window so 
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“Before I chose Microsoft C, 
I spent 6 months evaluating C compilers 
for my company. Now you can do 


the same in 2 hours.” 


Bill Davidsen 
Software Engineer 
Real Time and Operating Systems 





“Call us. You can get Microsoft C or 
our comprehensive report on C by 
the day after tomorrow.” 


Bruce Lynch, President 
The Programmer's Shop 


The security of thorough research. It took Bill Davidsen 
six months to thoroughly evaluate all C products before 

he selected Microsoft C. For him, its tight code and UNIX 
System V™ compatibility were exactly what he needed. 
And now Version 4.00 includes CodeView, a source-level 
windowing debugger. 

Thanks to expert users like Bill, and The Programmer's 
Shop, you can enjoy that satisfied feeling of thorough 
product evaluation in just a few hours. 

We recommend evaluating software by also getting 
detailed information from several different sources, includ- 
ing unbiased reports and reviews. Bill agrees completely. 

n fact, he helped us compile the objective opinions of 
4 magazines, 14 users and 3 industry analysts in a 16-page 
report on C: The C Test. It can help you be absolutely sure 
of making the choice that’s best for you. And it’s abso- 
lutely free. 


C for yourself. As an objective evaluation by users and 

eu bangs alike, The C Test is one of the most compre- 
ensive and informative reports currently available on 

C development tools. It’s only available from 

The Programmer's Shop. And it’s yours free 5 

for the asking. Here’s what you'll find in it: 


The C Test #* Detailed Tech Specs 
= Benchmark Source Code ® Magazine 
Reviews ® Users’ Feedback ® Perfor- 
mance Benchmarks ® User Study and 
Profiles * Test Drive Survey Results 
= 37 Compatible Products 

And if you're looking for even more C support, Micro- 
soft-compatible libraries for file management, graphics, 
screen control, object-oriented programming and other 
tools are ready to ship. 


The best programs for less. We think the only way 
to serve you is to give you the best programming alter- 
natives. The best recommendations for your needs. 

To deliver immediately. And this is how we do it. 









We start by giving you a choice of over 62 programming 
language implementations and 174 support programs. 
All from the same source. All competitively priced. 

Our informed programmers offer free advice whenever 
you call with any questions about any product. 

And when at aan an order, we can rush it to you in 
48 hours or less. That’s the kind of service and support our 
10,000 customers have come to expect. 

Because we've become a success by giving the best 
advice for free and selling the best software for less. 

To order Microsoft C ($279) or for your free copy of 
The C Test, simply call the toll-free number below: 


1-800-421-8006. In Massachusetts, call 1-800-442-8070. 


MICRSSOFT. C Compiler Version 4.00 
MICROSOFT C COMPILER 


= Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 

= |mplements register variables. 

= Small, Medium and Large Memory model libraries. 

= Compact and HUGE memory model libraries. NEW! 

= Can mix models with NEAR, FAR and the new HUGE pointers. 

= Library routines implement most of UNIX System V C library. 

= Start-up source code to help create ROMable code. NEW! 

= Full proposed ANSI C library support (except clock). NEW! 

= Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. . 

= Microsoft Windows support and MS-DOS 3.1 networking support. 


MICROSOFT PROGRAM MAINTENANCE UTILITY. NEW! 
= Rebuilds your applications after your source files have changed. 
= Supports macro definitions and inference rules. 


OTHER UTILITIES. 
= Library Manager. 
= Overlay Linker. 


MICROSOFT CodeView 

WINDOW-ORIENTED SOURCE-LEVEL DEBUGGER. NEW! 

= Watch the values of your local and global variables and expressions 
as you debug. 

= Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

= Watch CPU registers and flags as you execute. 

= Debug using your original source code, the resulting disassembly 
or both intermingled. 


Microsoft C comes with a 30-day money-back guarantee from 
The Programmer’s Shop. 


































= EXE File Compression Utility. 
= EXE File Header Utility. 


UNIX System V is a trademark of AT&T Bell Laboratories. : 
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that, when the window is active and 
the right mouse button is depressed, 
the menu strip appears. 

There are both advantages and 
drawbacks to the Amiga’s way of 
handling menus. The major draw- 
back is the burden the Amiga places 
on the programmer. Establishing 
Amiga menus requires a great deal of 
work to initialize data structures and 
a great deal of care to ensure that 
pointers are stored properly. The 
Macintosh, on the other hand, iso- 
lates the programmer from dealing 
directly with the data structures and 
from list management. The trade-off 
is flexibility. Macintosh menu items 
are restricted to text (though a limited 
number of icons can appear with 
them), whereas Amiga menu items 
can be graphics (the intuition text 
structures can be replaced with 
graphics data structures). A Macin- 
tosh programmer has control only 
over the relative placement of a 


METACOMCO 


The quality source for Atari ST & Amiga software 


CAMBRIDGE 


ISIE 


THE SYMBOLIC LANGUAGE 
FOR ATARI ST and AMIGA 


menu in the menu bar; an Amiga 
programmer can determine exactly 
where a menu should appear. 


Creating Windows 

Macintosh windows can also be de- 
fined by templates in resource files 
(see lines 24—29 in Listing Two). An 
application can then create the win- 
dow by pushing space for a window 
pointer on the stack, pushing three 
parameters, and calling GetNewWin- 
dow (see lines 44—49 in Listing One). 
The programmer must provide stor- 
age for the window record and for its 
pointer (lines 195 — 196). 

Because the Amiga doesn’t support 
resource files, an Amiga program 
must load a window data structure 
explicitly before calling the Open- 
Window system routine, which actu- 
ally creates the window (lines 69—91 
in Listing Three). If the window is to 
appear in a custom screen rather 
than the default Workbench screen, 
the program must also first initialize 
a screen data structure and call Open- 
Screen (lines 52—68). Note that al- 








An interpreter/compiler providing a complete 
LISP development environment for $199.95. 
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Does this look familiar? 
What if each change 
you made to your | 
program was ready to ™ 
test in seconds instead 
of minutes? 


“The SLR tools will change the 
way vou write code. I don’t use 
anything else.” , Joe Wright 


RELOCATING MACRO ASSEMBLERS ® Z80 e 8085 e HD64180 


e Generates COM, Intel HEX, Microsoft REL. or SLR REL 
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though it doesn’t matter to the Macin- 
tosh whether windows or menus are 
created first, it does matter to the 
Amiga. Amiga menus are attached to 
windows, not to the screen, and 
therefore a menu strip is useless un- 
less a window has previously been 
created to which it can be attached. 


Event Trapping 
Event trapping on the Macintosh and 
Amiga is similar in principle but 
somewhat different in detail. The 
general idea is to somehow let the 
computer know which events are of 
importance and then to enter a wait 
state until a desired event occurs. 
Once an event has been recorded, a 
program must identify which type of 
event has been posted and take ac- 
tion based on that particular event. 
The Macintosh posts events to a 
system event queue. Events of inter- 
est to an application program (that is, 
those that aren’t handled automati- 
cally by the system) are passed on to 
the program. An application pro- 
gram checks its queue repeatedly 
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Microsoft Linkability 


Marshal Pascal’s true relocatable linker allows you access 
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ble object code librarian and powerful overlay capabilities are 
also included. 


Powerful Compile Options 
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including an optimization by-pass for speedier compiles, I/O 
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find the more subtle logic errors, reducing debugging time 
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COST options. Marshal Pascal is not broken apart to make 
many products out of what should be only one good one. 


The Price? 
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SAS Institute Inc. 
Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


SAS is the registered trademark of SAS Institute Inc., Car 
. se y, NC, USA. La 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute In 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


| want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


L) the C compiler for MVS software developers 
LJ the C compiler for CMS software developers 
C) the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 
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with the routine GetNextEvent (lines 
62—65 in Listing One) to determine if 
an event has been posted. If GetNext- 
Event returns a Boolean result of 
FALSE, then the program simply 
branches to the top of the event loop 
(line 59) to check again. Assuming 
that an event has been posted, infor- 
mation about the event is stored in an 
event record. The program can then 
use information from that record to 
identify the exact type of event (see 
lines 69—74). In some cases, events 
not of interest to the application can 
appear in the event queue. When 
that occurs, the program simply ig- 
nores the event (line 75). When a de- 
sired event is identified, however, 
Macintosh programs generally 
branch to submodules, each of which 
processes a single event type. When 
the event has been handled, the pro- 
gram returns to the event loop to idle 
until another event is posted to the 
event queue. 





C-scape: A Prototyping Tool 


The Amiga reports events via mes- 
sage ports, which must be initialized 
before they can be used. The Open- 
Window routine creates an intuition 
message port, but ports must be cre- 
ated explicitly for the console device, 
which will be used for text I/O. The 
subroutine CreatePort (lines 278 — 307 
in Listing Three) allocates a signal bit 
for a new port, allocates memory for 
the port’s data structure, initializes a 
task control block for the port, and 
adds the port to the linked list of cur- 
rent message ports. 

Amiga programs do not need a pro- 
gram loop to idle while waiting for 
an event. Instead, they can use the 
system routine Wait, which idles un- 
til a desired event occurs. Wait must 
be supplied with the signal bits as- 
signed to each of the input ports that 
should be monitored for events. In 
the sample Amiga program, that in- 
cludes the signal bit for the intuition 
message port and the signal bit for 
the console read port (see lines 
184—193 in Listing Three). 

Unlike the Macintosh, the Amiga 


C Bricklin Run 


doesn’t report all types of events 
automatically. In line 77, the system 
is instructed to report only two of the 
types of events that may occur when 
this window is active—a click in the 
window close gadget and a selection 
from a menu. Therefore, any event 
detected by Wait should be an event 
useful to the program. 

If a Macintosh program identifies a 
selection from a menu (a “mouse- 
down” event in the menu bar), the 
program is faced with the problem of 
identifying which item from which 
menu has been selected. A single sys- 
tem routine, MenuSelect (lines 
125 — 127 in Listing One), returns both 
the menu’s resource ID and the num- 
ber of the menu item. MenuSelect 
uses a field from the event record as 
input—the coordinates of the mouse 
pointer when the selection was 
made. The menu number, returned 
in the high-order word of the long- 
word result, is then isolated from the 
menu item, which is returned in the 
low-order word (lines 128—130). Fi- 
nally, the menu number can be used 
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to identify the precise menu posting 
the event. 

An Amiga program must also iden- 
tify which menu and which item 
have been selected. The Amiga, 
though, reports only that an intuition 
event has occurred. The program 
must retrieve the input message with 
the system routine GetMsg (lines 
205— 208 in Listing Three) to deter- 
mine exactly which of the intuition 
events requested in the window data 
structure has been detected. Once the 
type of event has been recovered 
(line 211), it can be compared against 
the desired types of events (lines 
212— 215) in the same way as the Mac- 
intosh program identifies events. The 
menu number and menu item (and 
the menu subitem, if applicable) are 
stored in a 16-bit field in the message 
data structure. The menu number is 
in bits 0—4 and can be isolated by 
masking off the 11 high-order bits 
(line 222). The menu item is in bits 
5— 10 (see lines 225 — 226). 


The sample Macintosh program 
supports activities from all three 
menus. The Apple menu’s desk acces- 
sories are handled by system routines. 
GetItem (lines 140— 143 in Listing One) 
retrieves the name of the desk acces- 
sory that has been selected. Open- 
DeskAcc (lines 144—147) actually 
opens the program. Once the desk ac- 
cessory has been opened, subsequent 
events in that program are posted to 
the event queue and detected as 
mouse-button down events in a sys- 
tem window (lines 104—105). In that 
case, the system routine SystemClick 
(lines 111—113) processes the event 
without further intervention from 
the application program. For the pur- 
poses of the sample program, only the 
Quit item is actually trapped from the 
File menu (lines 176—177); all other 
options simply return to the event 
loop. The CloseAndQuit routine (lines 
187 —191) frees the space used for text 
storage (TEDispose in lines 187—188), 
closes the window (CloseWindow in 
lines 189—190), and then returns to 
the Finder. The Edit menu, which is 
fully implemented with system rou- 
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tines, is discussed later in this article in 
the context of text editing. 

The Amiga program also handles 
only the Quit item from its Project 
menu. Its CloseAndQuit routine (lines 
229—240 in Listing Three) first re- 
moves any unprocessed console 
events with the system macro 
ABORTIO (this macro is found in the 
Amiga include files), then closes the 
console device (CloseDevice in lines 
231—233), closes the window 
(CloseWindow in lines 234— 236), and 
finally closes the custom screen 
(CloseScreen in lines 237 — 239) before 
returning to the operating system. 
The Edit menu is not implemented 
because the Amiga does not have sys- 
tem routines for text editing. 


Text Editing 

The environment for text editing is 
very, very different on the Macin- 
tosh and Amiga. Other writers have 
glossed over the Macintosh’s text 
editing abilities (for example, see the 
September 1986 issue of Byte maga- 
zine?), but it is in this area that the 
difference between the Mac and 
Amiga system routines is glaringly 
apparent. The Macintosh’s system 
routines for text editing are simple 
and elegant. The Amiga has nothing 
comparable; Amiga text I/O relies on 
low-level device communication. 

To do text I/O, a Macintosh pro- 
gram allocates a text edit record with 
the system routine TENew (see lines 
52—56 in Listing One). The text edit 
record is associated with a window, 
though the text stored in the text edit 
record can be much larger than what 
can be seen in the window at any giv- 
en time. A call to TEActivate (lines 
57 — 58) makes the text edit window 
active and draws the straight-line 
cursor as the text entry point. Repeat- 
ed calls to TEldle (line 61), usually 
within the program’s event loop, en- 
sure that the cursor blinks regularly. 

When a text edit window is active, 


' Macintosh programs generally as- 


sume that key-down events not asso- 
ciated with the command key repre- 
sent text to be both displayed on the 
screen and stored in the text edit re- 
cord. Whenever such an event is de- 
tected, the key pressed is stored in 
the event record. TEKey (lines 79—81 
in Listing One) displays that charac- 
ter at the current cursor position, ad- 
justing word wrap as necessary, and 
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inserts the character into the text edit 
record in RAM. 

Mouse-down events in active text 
edit windows signal that the user 
wishes to either change the position 
of the straight-line cursor or identify a 
block of text for editing activities. The 
Macintosh refers to blocks of code or 
the straight-line cursor as the “‘selec- 
tion range.’’ Setting the selection 
range requires calls to two system 
routines. GlobalToLocal (lines 
115—116) is a graphics routine that 
takes the point where the mouse- 
down event occurred, which is ex- 
pressed in global screen coordinates, 
and translates it to the text edit win- 
dow’s local coordinate system. The 
transformed coordinates can then be 
passed to TEClick (lines 117—123), 
which actually sets the selection 
range. 

The text editing functions listed in 
the Macintosh’s standard Edit menu 
are each available as a single system 
routine that bases its operation on the 
current selection range. TECut (lines 
156—159) deletes the current selec- 
tion range from the screen, adjusting 
word wrap and the text edit record. 
The deleted text is stored in RAM in an 
area known as the “Clipboard.” Cut, 
and any other operations that write 
to the Clipboard, erase the previous 
contents of the Clipboard. TECopy 
(lines 161—165) writes the current se- 
lection range to the Clipboard but 
does not affect the screen or text edit 
record. TEPaste (lines 166—169) in- 
serts whatever it finds on the Clip- 
board at the current selection point 
(either at the straight-line cursor or 
after the selection range). Both the 
screen display and text edit record 
are adjusted. TEClear (lines 171—175) 
deletes the current selection range 
without affecting the Clipboard. 
These functions also provide “‘intelli- 
gent cut and paste,’ automatically ad- 
justing spacing between words when 
text is either deleted, cut, or pasted. 

There are two major ways to do 
text I/O on the Amiga—either via the 
console device, which processes key- 
strokes before passing them on to the 
system, or via the RAW device, which 
transmits unprocessed key codes. For 
simple text I/O, the console device is 
easier to use because it automatically 
manages special keys such as the 
backspace. To use the console device, 
an Amiga program must, as discussed 
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earlier, allocate two message ports— 
one for input and one for output. 
These message ports are then incor- 
porated into standard I/O request 
blocks, the data structures that are ac- 
tually used for I/O. The subroutine 
CreateStdIO (lines 308—319, Listing 
Three) allocates memory for a stand- 
ard I/O data structure and initializes 
the data structure with the address of 
its message port. Finally, the console 
device can be opened by the subrou- 
tine OpenConsole (lines 320—330). 
Note that the call to the system rou- 
tine OpenDevice (line 327) returns a 
pointer to the device data structure in 
a field of one of the standard I/O re- 
quest blocks. In other words, the de- 
vice is linked to the I/O request 
blocks rather than the I/O request 
blocks being linked to the device. If 
the console is opened successfully, a 
solid block cursor appears in the up- 
per left-hand corner of the window 
to which the console is attached. The 
cursor does not blink. 

The system routine SendIO, which 
appears in the subroutine QueueRead 
(lines 332—337), issues a request for 
console input. Send/O uses data from 
the input standard I/O request block, 
including the type of operation to per- 
form (line 332), the place where input 
should be stored (line 333), and the 
number of bytes to input (line 334). 

The subroutine ConPutChar (lines 
338 — 343) handles console output. Us- 
ing the system routine DolIO (line 342), 
it displays a single character at the 
current cursor position and moves 
the cursor to the right. If the cursor is 
pushed past the right edge of the 
window, it drops to the leftmost posi- 
tion on the line below. ConPutChar 
does not do word wrap, nor does it 
store the text displayed in main 
memory. Subsequent calls to Queue- 
Read reuse the same storage space for 
input characters. As mentioned be- 
fore, the Amiga also has no system 
routines for text editing. Therefore, 
although the backspace key can 
erase whatever character is dis- 
played to the left of the cursor, no 
other editing is possible. To imple- 
ment the standard text editing func- 
tions, programmers must write their 
own routines to do word wrap, ma- 
nipulate the selection range, store 
text in main memory (or on disk if 
applicable), manage a clipboard, and 
do the editing operations. 


The Bottom Line 

It might be unfair to base an evalua- 
tion of the system routines of the 
Macintosh and Amiga simply on the 
subset of the routines designed to ma- 
nipulate the user interface. On the 
other hand, the programming strate- 
gies used to implement the standard 
user interfaces are similar to those re- 
quired for other system operations. 
In general, the Macintosh routines 
isolate programmers from low-level 
tasks such as list manipulation and 
initialization of data structures (File 
Manager parameter blocks are nota- 
ble exceptions). Although this re- 
duces the burden placed on the pro- 
grammer, it can decrease the 
programmer's flexibility. The Macin- 
tosh routines are also more complete 
in terms of their support for the doc- 
umented user interface. The effect is 
again to reduce the burden placed on 
the programmer. 

On the Amiga, the intuition library 
provides routines for the standard 
user interface. Although support for 
screen, windows, menus, and fonts is 
available, there is a great gap in terms 
of text editing. In other words, the 
Amiga does not provide system rou- 
tines to fully implement its own 
standard interface recommenda- 
tions. As someone who writes more 
programs that rely on text manipula- 
tion than on graphics, I believe that 
this is a serious deficiency. It is true 
that the Amiga performs some func- 
tions “automatically” for which a 
Macintosh program must include 
code (for example, moving and sizing 
windows). Nonetheless, the Macin- 
tosh does include system routines to 
handle those functions. 


Notes 

1. Caroline Rose et al., Inside Macin- 
tosh (Reading, Mass.: Addison-Wes- 
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2. Robert J. Mical and Susan Deyl, In- 
tuition: The Amiga User Interface 
(Commodore-Amiga Inc., 1985). 
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file routines, comm. MS $ 59 
C ToolSet - DIFF, xref, source MS $ 95 MACFortran by Microsoft MAC $229 Microsoft MASM - faster MS $ 98 
The HAMMER by OES Systems PC $179 Modula 2 by VolitionSystems MS $ 250 
bo MS Fortran link to C MS $209 , 
Lattice Text Utilities MS $ 95 sath « antifi Modula-2/86 Compiler by Logitech 
a No Limit - Fortran Scientific PC $119 
Multi-C - multitasking PC $149 : “ w/ 8087 ($ 99), 512K ($145) PC $ 62 
; RM/Fortran - enhanced “IBM 
PC LINT-Checker. Amiga $89 MS $107 ; %» Pasm - by Phoenix MS $ 149 
Professional Fortran MS $389 
SECURITY LIB-add encrypt to MS C, Scientific Subroutines - Matrix MS $149 SNOBOL4+ -greatforstrings MS $ 85 
C86 programs. Source $229 PC $115 Statistician by Alpha MS $259 Turbo Edit/ASM - by Speedware PC $ 85 


Quickshell - script compiler PC $349 


C-Screens. Windows. Graphics 


C Power Windows by Entelekon PC $119 


dBASE Graphics for C PC $ 69 
Curses by Lattice PC $ 99 
ESSENTIAL GRAPHICS - fast, PC $209 
GraphiC - mono version PC $217 
GraphiC - new color version PC $295 
Greenleaf Data Window PC $199 

w/source PC $369 


Multi-Windows - use w/ Multi-C PC $295 


Vitamin C - screen I/O PC $129 
Windows for C - fast PC $159 
Windows for Data - validation PC $239 
ZView - screen generator MS $189 


Debuggers 


Advanced Trace-86 by Morgan 


Modify ASM code on fly. PC $129 
CODESMITH - visual, modify 

and rewrite Assembler PC $107 
C SPRITE - data structures PC $139 
DSD87 - by Soft Advances PC $ 89 
Periscope I - own 16K PC $249 
Periscope II - symbolic, “Reset 

Box,” 2 Screen PC $119 
Pfix-86 Plus Symbolic Debugger 

by Phoenix - windows PC $249 
Showcase by Test Software PC $135 


Software Source by Atron - 
Lattice, MS C, Pascal, Windows 
single step, 2 screen, log file. MS $115 
w/Breakswitch $199 


FEATURE 


Pascal-2 - Perhaps tightest compiler 
for MSDOS. Mainframe background & 
power. MS compatible. Complete 
environment. Turbo translator. Get 
detailed specs. PC $329 





= HOURS 











8:30 AM - 8:00 PM EST. 


Strings and Things - register, shell PC $ 59 


Multilanguage Support 


BTRIEVE ISAM MS $199 
BTRIEVE/N-multiuser MS $469 
CODESIFTER - Profiler. MS $ 99 


HALO Graphics - 115 + devices. 

Animation, engineering, business. 

Any MS language, Lattice, C86 PC $217 
Informix - by RDS PC $679 
Informix 4GL - application builder PC $849 
PANEL - Create screen with editor, 

generates code. Full data validation, 

no royalties. Xenix $539, MS $219 


PolyLibrarian by Polytron MS $ 85 
PVCS Version Control MS $329 
QMake by Quilt Co. MS $ 89 
Rtrieve - Xtrieve option MS $119 
Screen Sculptor - slick, thorough, 

fast, BASIC, PASCAL. PC. $ 99 


Xtrieve - organize database MS $199 
ZAP Communications - VT 100, 
TEK 4010 emulation, file xfer. PC $ 89 


ex: h-1et-] = [ale mole] eo) lela tale 


ALICE - learn Pascal, Turbo 

compatible, interpreter PC .S.-79 
Exec - Chain Programs MS $ 85 
MetaWINDOW - graphics toolkit PC $135 
Microsoft PASCAL - faster MS $199 
MICROTEC PASCAL - 5 memory models, 

‘‘TIterators’’, 65 bit 8087 strings MS $665 
Pascal Pac with Tidy - formatter, 


utilities PC $ 69 
Pascal Tools - strings, screen PC $109 
Pascal Tools 2 - by Blaise MS $ 85 
Pfas - Portable Isam MS $185 


TurboHALO - 150 routines, IBM 
EGA, Hercules, more 
USCD Pascal - native code 


PC $ 85 
MS $ 69 


Call for a catalog, literature, advice and service you can trust 


800-421-8006 


THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 11/86 


Circle no. 133 on reader service card. 


tf EE 


ealalb eroloms mole] o)eleladiare| 


Basic - by Microsoft $ 249 
Cobol - by Microsoft $ 659 
Fortran or Pascal - by Microsoft $ 489 


MicroFocus Lev. II Compact COBOL$ 795 
Xenix Complete Development System$1049 


Other Products 


386 Assembler/Linker PC $ 459 
ASMLIB - 170+ routines PC3 135 
BSW Make - like UNIX make MS §$ 85 


Dan Bricklin’s Demo Program PC $ 65 
dBrief - Customize BRIEF for dBASE 
development. with BRIEF $275. PC $ 95 
H Test/H Format - XT Fix PC $ 89 
Interactive Easyflow-HavenTree PC $ 129 
Link & Locate - tools to work with 


Intel and Tektronix projects. MS $ 329 


LMK - like UNIX make MS 149 

Microsoft Windows PC iS 

Microsoft Windows Software 
Development Kit PC $ 349 


MKS Toolkit - Unix, vi, awk PC 


Opt Tech Sort - sort, merge MS $ 119 
PMaker - by Phoenix PC 29 
Polymake by Polytron MS 


PS MAKE by UniPress MS 
SECRET DISK by Lattice PC 
SET:SCIL - manager revisions PC 
Shrink/Shrinkem - put more files 

on disk with spacemaker PC 
SoftEst - Manage projects. MS 
Synergy-Create user interfaces MS 
Texsys - control source MS 
Visible Computer: 8088 - Simulates 

demos or any .exe. com, Debugger. 

350 pg. tutorial, unprotected PC $ 69 


Fi AAA PFA HAAAAAH PAA 
~] 
\O 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. Ask about COD and POs. Formats: 
3" laptop now available, plus 200 others. UPS surface shipping add $3/item. 





“I like your straightforward, open 
evaluations, comments and selection.’ 





Chris Chapman 
Practical Solutions Software 














Is $19.97 too 
much to spend 
to avoida 
million dollar 
mistake? 





Business Software 
magazine is a valuable resource 
that helps you squeeze every 
penny’s worth of potential out 
of your computer system. It is 
written for the business person 
and decision maker who wants 
practical, “hands-on” software 
solutions to real problems, 
written in a straightforward, 
jargon-free language. Every 
month, Business Software 
brings you: case studies of 
business computer applications; 
company profiles, including 
who is using what software and 
why; software tutorials that 
explain what the manual left 
out; information on the latest 
products, as well as the 
longtime favorites, all from a 
business perspective. 


To subscribe, please fill out this 
coupon and return it to: 
Business Software, 
P&). Box 27975, 

San Diego, CA 92128 


Name 
Address 
City 











State 
Bill my [-] VISA [JM /C 

(_] Bill me later [7] $19.97 
Card No. 


Expiration date 





Zip 











Signature 
Please allow 6-9 weeks for address change to take effect 3031 
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; Listing One 
; FLINT's system macros 


Listing One (Text begins on page 22.) 





; MACRO definition file for FLINT as implemented on the : 
; SAGE II microcomputer. ; 
. MACRO XSTOP . determines the environment (if any) 
; into which the exit is made 
- WORD 4EF 9H ; 
. WORD OOFEH : exit to PROM monitor/debugger 
. WORD 0030H ; 
. ENDM 
. MACRO TGET ; gets a character from the terminal 
; and puts its ASCII value in the 
; lower byte of DO 
. WORD 4EBSH ; 
WORD OOFEH ; PROM BIOS call 
. WORD 0008H ; 
. ENDM 
. MACRO TPUT ; sends the character whose ASCII value 
: is in the lower byte of DO to the 
; terminal 
«WORD 4EBSH ; 
. WORD OOFEH ; PROM BIOS call 
. WORD 0014H ; 
- ENDM 
. MACRO GETBLOCK : loads 1024 bytes from the disk block 
; numbered by the value in CBLOCK into 
; a buffer whose address is DISKBUF 
MOVE. L A4,-(A7) a save A4 
MOVE .W CBLOCK, - (A7) ; push block # 
LEA DISKBUF, AO ; 
MOVE. L AO, - (A7) ; push buffer address 
MOVE. L #1024,-(A7) : push length of transfer (1024 bytes) 
MOVE .W #1,-(A7) : push drive # 
- WORD 4EB9H ; 
- WORD OOFEH . PROM BIOS call for diskread 
- WORD 0028H ; 
MOVEA , L (A7)+,A4 ; recover A4 
»-ENDM 
- MACRO SAVBLOCK ; saves the contents of a 1024 byte 
: buffer whose address is DISKBUF onto 
; the disk block numbered by the value 
; in CBLOCK 
MOVE. L A4,-(A7) 3 save A4 
MOVE .W CBLOCK, - (A7) ; push block # 
LEA DISKBUF, AO ; 
MOVE. L AO, -(A7) ; push buffer address 
MOVE. L #1024,-(A7) : push length of transfer (1024 bytes) 
MOVE .W #1,-(A7) 3 push drive # 
. WORD 4EBSH ; 
. WORD OOFEH ; PROM BIOS call for diskwrite 
. WORD 002CH ; 
MOVEA.L (A7)+,A4 > recover A4 
-ENDM 


Listing Two 


; Listing Two 
; The FLINT Interpreter 


-NOLIST 

- NOSYMTABLE 

- NOMACROLIST 

- NOPATCHLIST 

-INCLUDE MACROS.TEXT 
«LIST 


2 2 6.0 OS'S 2.0.8 8 2 8 AD 6 wo 018 B68 6" 6. w. 6.68 8 0.6 « 0 6 
CPIE BE OF EELS EEG: FCP OO OPES FOF OER PS 8 OLD 8 


2. SLINT 


We note the effect that the execution of a word has on the stack by a 
conventional shorthand. Before and after lists of the relevant stack 

“rightmost is topmost" order separated by 

- An address is denoted by “a", an integer by "n", and a flag by 
"fl". Parameters in parentheses may Or may not be present. 


; parameters are given in 


a aL 


word action 


ve Se Fe . . 


(Forth-Like INterpreter and Threader) 


TOKEN gets token from input buffer 


searches dictionary for current token 
pushes its code address and true flag 


executes routine whose code address a 


determines if a token whose address is 
popped from stack represents a number 


if so pushes value and true flag or else 
pushes false flag 


: SEARCH 

: or else false flag 
; EXECUTE 

; is on stack 

: NUMBER 


End Listing One 


S26 20 2 OS FT ES 0 SE OS C8 oe © CS EE-8 DCE Oe SW .O76.'6 VO US SSS ©, SL el es 6> e708 


Se Se Me Be Me 


stack effects 


a --> (a),fl 


Se Ve Ye Ye Ve Ye Be Se Ye Se Vo Yo 


a =-->. (n); fl ‘ 
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WHAZZAT 


HEADER 


COMPILE 


CODE 


sends ? to terminal 


makes a dictionary header for the next 
token in the input stream (the name of 
a word being defined). 


calls HEADER and then sets the compile 
mode (colon) flag 


writes code for JSR in the dictionary 


and calls "," (which furnishes the a => 


operand for JSR) 


an “immediate"™ word (executed even in 


LITERAL 


PROMPT 


LINE 


compile mode) which sets the base to hex 
and sets the code submode flag 


takes a number from the stack and writes as a 


it in the dictionary directly 


takes a number from the stack and 


generates code which when executed will i 


push the number back on the stack 

closes the current definition by writing 
an RTS in the dictionary and clearing the 
compile and code flags. 


sends prompt (ok) to terminal 


gets a line from the input device and 


places it in the line buffer 


; control structure of the prompt and input code 


; register usage 


A4 


2D SPO BESET OAD RHC? SEP CLR 


TERMBUF 
DISKBUF 


RTNSTK 
PARMSTK 
UNDRF LW 


DICT 
CBLOCK 
BASE 


FCOLON 
FIMMED 
FCODE 
FNEG 
FINT 
BLANK 
ZERO 


START 


RESTART 


MAIN 


LITERAL (compile mode) 
or 
return {execute mode) 
line buffer pointer 
dictionary pointer DO I/O port 
parameter stack pointer D1 "scratch 
return stack pointer AO registers" 
. ABSOLUTE 
- PROC FLINT 
.ORG 01000H 
BRA START ; set up 
. BLOCK 84,32 ; system buffers, 
. BLOCK 1024, 32 
sBSCLE “INTERACTIVE " 
.BYTE 13 
«BYTE 32 
. BLOCK 80,0 ; system stacks, 
. BLOCK 256,0 
. WORD 0 
.WORD LAST ; system variables, 
- WORD 0050H 
WORD 10 
. BYTE 0 system flags, 
- BYTE 0 
.BYTE 0 
.-BYTE 0 
. BYTE 0 
. ALIGN 2 
. BLOCK 4,32 etc. 
. BLOCK Seoe 
.BYTE 48 
LEA RTNSTK+80,A7 ; initialize pointers 
LEA PARMSTK+256,A6 
MOVEA .W BUFPNT, AS ; 
CLR. L FCOLON ; initialize flags 
CLR.B FINT ; 
JSR LOAD ; load boot screen 
JSR WHICHBUF ; select input buffer 
JSR TOKEN ; get next token 
MOVE .W DICT, — (A6) ; push dictionary pointer 
JSR SEARCH ; look for token 
TST.W (A6) + ; if found then 
BEQ TSTNUM ; 
BCLR #7, FIMMED ; if immediate flag off then 


PROMPT 
LINE 
outer interpreter loop 
TOKEN 
SEARCH 
if found 
EXECUTE (execute mode) 
STKCHK 
or 
COMPILE (compile mode) 
else 
NUMBER 
if fail 
WHAZZAT 
else 
COMMA (code mode) 
or 


(continued on next page) 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 
FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
cause you can run all DOS com- 
mands plus COM and EXE programs 
from within HS/FORTH. Not be- 
Cause you Can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because I/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer. You could even transfer con- 
trol of your entire computer to a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 
Public domain products may be 
cheap; but your time isn’t. Don't 
shortchange yourself. Use the best. 
Use it now! 

HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callahan 


~ Visa Mastercard 


HARVARD 
SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 


Circle no. 132 on reader service card. 
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Byte Magazine called it. 


“CIARCIA’S 
SUPER y 
SYSTEM" 






The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4” x 7%” single board system. 


e 6MHz 64180 CPU 


(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 

@ Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 3%'' 5%" 
and 8” drives). 

@ Measures 4” x 7%"' with mounting holes 

© One Centronics Printer Port 

® Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 

© Power Supply Requirements 
+5V +/-5% @500 mA 
+12V +/- 20% @40mA 

© ZCPR3 (CP/M 2.2/3 compatible) 

® Multiple disk formats supported 

e Menu-based system customization 





$B180-1 
S$B180 computer board w/256K 
bytes RAM and ROM monitor 


Pret a hugiee Lona eheas: $299.00 
$B180-1-20 

same as above w/ZCPR3, ZRDOS 

and BIOS source............. $399.00 


-Quantity discounts available- 





new 
COMM 180-M-S 


optional peripheral board adds 
1200 bps modem and SCS! 
hard disk interface. 





TO ORDER 
CALL TOLL FREE TELEX 
1-800-635-3355 643331 


For technical assistance or 
to request a data sheet, call: 


1-203-871-6170 





eS Micromint, Inc. 
4 Park Street 
Vernon, CT 06066 
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BNE 
TST.B 
BEQ 
JSR 


BRA 
GODO JSR 

JSR 

BRA 
TSTNUM MOVE .W 
JSR 
TST.W 
BNE 
JSR 
BRA 


TSTCODE TST.B 
BEQ 
JSR 
BRA 


TSTLIT TST.B 
BEQ 
JSR 
BRA 


WHICHBUF TST.B 
BNE 
LEA 
RTS 


GOLINE JSR 
RTS 


LINE JSR 
MOVEQ 
LEA 
MOVE.L 
SUBO.B 
BGE 
CLR.L 
INCHAR TGET 
CMPI.B 
BEQ 
CMPI.B 
BNE 
JSR 
BRA 
INBUF MOVE .B 
ADDQ.B 
TPUT 
BRA 
EXIT MOVE .B 
RTS 


CLEANUP 


RUBOUT TST.B 
BLE 
TPUT 
SUBO.B 
MOVEQ 
MOVE ..B 
TPUT 
MOVEQ 
TPUT 
RRET RTS 


STKCHK LEA 
CMPA.W 
BLE 
JSR 

OKSTK RTS 


NULLWORD .BLOCK 


-BYTE 
- ASCII 
- WORD 
CRLF MOVEQ 
TPUT 
MOVEQ 
TPUT 
RTS 


- BYTE 
-ASCII 
- WORD 
PROMPT JSR 
MOVEQ 
TPUT 
MOVEQ 
TPUT 
MOVEQ 
TPUT 
RTS 


- BYTE 
-ASCII 
-WORD 
WHAZZAT JSR 
MOVE .W 
ADDI.W 
MOVE .B 
CLR.B 
JSR 


STKU JSR 
MOVEQ 
TPUT 


GODO 
FCOLON 
GODO 
COMPILE 


MAIN 
EXECUTE 
STKCHK 
MAIN 


AS, — (A6) 
NUMBER 
(A6)+ 
TSTCODE 
WHAZZAT 
MAIN 


FCODE 
TSTLIT 
COMMA 
MAIN 


FCOLON 
MAIN 
LITERAL 
MAIN 


GOLINE 
DISKBUF, A4 


LINE 


PROMPT 

#76,D1 
TERMBUF, A4 
BLANK, 0 (A4,D1) 
#4,D1 

CLEANUP 

D1 


#13,D0 

EXIT 

#8,D0 
INBUF 
RUBOUT 
INCHAR 

DO, 0(A4,D1) 
#1,D1 


INCHAR 
DO, 1(A4,D1) 


D1 
RRET 


#1,D1 
#32,D0 
DO, 0(A4,D1) 


#8,D0 


UNDRF LW, AO 
AO, A6 
OKSTK 
STKU 


6,0 


= 

"tcRL" 
NULLWORD 
#13,D0 


#10,D0 


6 

up Ro" 
CRLF-6 
CRLF 
#111,D0 


#107,D0 


#32,D0 


7 
"WHA" 

PROMPT-6 

CRLF 

A5S,-(A6) 
#1, (A6) 
(AS) ,—- (A6) 

~ (A6) 

TYPE 

RSET 

CRLF 

#42,D0 


we Ye Ye Se Ye Ve 


we Ye Ye Ye 


so Ye Ye Ye 


, 


Ve te Fe te Fe 


. 
, 


we Ye Ye 8 


Se Ye Se Se te Me 






Listing Two (Listing continued, text begins on page 22.) 


if in compile mode 


compile 
else 
execute word 
and check underflow 
else 


push token buffer address 
is token a number ?? 
if not 


2? whazzat ? 
else 


if code flag on 


write code in dictionary 
else 


if in compile mode 


compile number as literal 


if not in interactive mode 
get input from disk buffer 
else 


fill line buffer from terminal 


; prompt 


clear line buffer 


clear character count 
get next character and 
do while not CR 
if character is backspace 
rubout previous char 
else 
copy it into buffer 
increment count 
echo to terminal 


imbed CR in buffer 


if count > 0 then 
echo backspace 
decrement count 
erase previous character... 


in buffer and... 
on terminal 


return 


if top is below bottom 


underflow exception 


DICTIONARY 


CRLF 


send CR 


send LF 


; return 


PROMPT 
send CR LF 
send “o"™ 
send “k" 
send space 
return 

WHAZZAT 


send CR LF 
push token address 


push character count 
pad it to "word" length 
type offending token 


(underflow entry point) 


send * 
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RSET 


TOKEN 


GETCHAR 


EXITGET 


CR 


SEARCH 


COMPARE 


FINDIMM 
FIND 


NOF IND 


NUMBER 


NXTDIG 


CMPBASE 


FAIL 


EXECUTE 


COMP ILE 


HEADER 


MOVEQ 
TPUT 
LEA 


CLR.L 
TAS 
JSR 
RTS 


- BYTE 
-ASCII 
-» WORD 
CLR.L 
CLR.L 
MOVE .B 
CMPI.B 
BEQ 
MOVE .B 
ADDQ.B 
BRA 
MOVE .B 
BEQ 
RTS 


._ BYTE 
-BYTE 
- WORD 
.WORD 
LEA 


- BYTE 
-ASCII 

- WORD 
MOVE. L 
MOVEA .W 
TST.W 
MOVEA .W 
BEQ 

CMP .L 
BEQ 
BCHG 
CMP.L 
BEQ 
BCHG 


TAS 
LEA 
MOVE .W 
MOVE.W 
RTS 
MOVE .W 
RTS 


- BYTE 
-ASCIT 
. WORD 
CLR.L 
MOVEA .W 
MOVE .B 


MOVE .B 
SUBI.B 
BLT 


BLT 
SUBI.B 
CMP .W 
BLT 
CMP .W 
BGE 
MULU 
SWAP 
TST.W 
BNE 
SWAP 
ADD.W 
BCS 
SUBO.B 
BNE 
MOVE .W 
MOVE .W 
RTS 
CLR.W 
RTS 


. BYTE 
-ASCII 
» WORD 
MOVEA .W 
JSR 

RTS 


._ BYTE 
. ASCII 
» WORD 
MOVE .W 
JSR 
RTS 


- BYTE 
- ASCII 
» WORD 
MOVE .W 
MOVE .W 


RTS 
-BYTE 


.ASCII 
«WORD 


#63,D0 


PARMSTK+256, A6 


FCOLON 
FINT 
CR 


S 

uUTOK" 
WHAZZAT-6 
(AS) 

D1 
(A4) +, D0 
#32,D0 
EXITGET 
DO,1(A5,D1) 
#1,D1 
GETCHAR 
D1, (A5) 
GETCHAR 


129 

13 

0 

TOKEN-6 
RTNSTK+80, A7 
RESTART 


6 

"SRAM 
CR-6 
(A5),D1 


A6,A0 


(AO) 


(AQ) ,A0 


NOFIND 
(A0),D1 
FIND 
#31,D1 
(AQ),D1 
FINDIMM 
#31,D1 
4(A0),A0 
COMPARE 
FIMMED 

6 (AQ), A0 
AO, (A6) 
#-1,-(A6) 


AO, (A6) 


6 

“NUM" 
SEARCH-6 
D2 


(A6)+,A0 


(A0)+,D1 


(A0)+,D0 
#48,D0 
FAIL 
#10,D0 
CMP BASE 
#7,D0 
#10,D0 
FAIL 
BASE, DO 
FAIL 
BASE, D2 
D2 

D2 

FAIL 

D2 

DO, D2 
FAIL 
#1,D1 
NXTDIG 
D2, -(A6) 
#-1,-(A6) 


- (A6) 
7 


URXE" 
NUMBER-6 


(A6)+,A0 


(AQ) 


i 

tcom" 
EXECUTE-6 
#04EB8H, (A5) + 
COMMA 


6 

“HEAM 
COMPILE-6 
DICT, 4(A5) 
AS, DICT 
6(A5),A5 


‘iy IMM" 
HEADER-6 
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; send ? 
; reset stack pointer 


initialize flags 
set interactive mode 
get new line 


TOKEN 


clear token buffer 
clear count 
getcharacter until space 


place in token buffer 
increment count 


; put count in lst byte of buffer 


if count is 0 repeat 
return 


(CR) 


; reset system stack 
; restart 


SEARCH 


; put token "stem" in D1 
; use AO as search pointer 
; DO 


; LOOP 


get address of next word 

if nullword, exit NOFIND 

compare word to candidate 

if found, exit FIND 

set precedence bit 

compare to "immediate" candidate 
if found, exit FINDIMM 

reset precedence bit 

get link address 


set immediate flag 
get code address 
push it 

push success flag 


; push fail flag 


NUMBER 


; clear conversion register 
; get token address 
; get digit count 


DO 
get next digit 
strip ASCII prefix 
if digit too small, FAIL 
if digit:> 9 
adjust for “odd" values 
and test again 


if base < digit 
FAIL 
multiply current value by base 


if overflow 
FAIL 


add current digit 
if overflow, FAIL 
decrement count 


; UNTIL no digits remain 


push number 
push success flag 


; push fail flag 


EXECUTE 


pop code address 
execute 


COMPILE 


; compile "JSR" 
; compile code address 


HEADER 


link header to dictionary 
update DICT 


; move pointer to code field 


IMMEDIATE 


(continued on next page) 


































































C Programs 
in Half the Time, 
with Instant-C™ 


ou can create programs much faster 

with Instant-C than with convention- 
al programming tools. How? Because 
Instant-C is a high-performance inter- 
preter, there are no compile or link 
delays. Change your program, then 
test it immediately. No matter how 
large your program, the turnaround 
time is just seconds. 





“Instant-C means instant gratification" —PC_ 
Magazine, Editor’s Choice for best 
C interpreter. 





Powerful source-level debugging 
saves your time. Conditional break- 
points, single-stepping by statement, 
source code backtraces, data moni- 
toring, and many other debugging 
features make it easy to wipe out bugs 
quickly. Direct execution of any state- 
ment or function makes testing a 
breeze. 


“The resulting debugging and testing capa- 
bilities are fantastic and the detailed trace/de- 
bug/display commands make it easy.’ — The 
C Journal 





Instant-C checks pointer references 
for reasonableness, and checks that 
array indexes are within declared 
bounds. This run-time checking 
stops your program as soon as errors 
occur, for easiest debugging. 

Not only does Instant-C help you 
quickly change, test, check and debug 
your code, but it runs your program 
fast enough for real-time appli- 
cations. 





“It is much faster than any of the other pro- 
ducts mentioned and was the only one able to 
complete the standard SIEVE in a reasonable 
time. Clearly, this high speed allows much 
more complex problems to be attacked with 
Instant-C than with any of the other products 
discussed.” —Computer Language 





Immediate feedback and precise 
diagnostics make Instant-C great for 
learning C. Full K&R and the ability to 
link compiled object code and li- 
braries (Lattice and Microsoft) makes 
Instant-C compatible with your existing 
programs. 

Instant-C makes all parts of the 
programming task as fast as possible. 





“Clearly, Instant-C is the performance 
champion."—PC TechJournadl 
Version 2 works with MS-DOS and 
PC-DOS, and has a full 31 day money 
back guarantee. Instant-C is only 
$495, Order today! Call or write for 


full information. 
PO. Box 480 


Rational xtc’ ma 01760 
Systems, Inc. (617) 653-6194 


Circle no. 145 on reader service card. 
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TURBO PROGRAMMERS- 





TDebug PLUS is a new, interactive symbolic de- 
bugger that integrates with Turbo Pascal to let you: 


= Examine and change variables at runtime 
using symbolic names — including records, 
pointers, arrays, and local variables; 


= Trace and set breakpoints using procedure 
names or source statements; 


= View source code while debugging; 


= Use Turbo Pascal editor and DOS DEBUG 
commands. 


TDebugPLUS also includes a special MAP file 
generation mode fully compatible with external 
debuggers such as Periscope, Atron, Symdeb, and 
others — even on programs written with Turbo 
EXTENDER. 


An expanded, supported version of the acclaimed 
public domain program TDEBUG, the TOebugPLUS 
package includes one DSDD disk, complete source 
code, a reference card, and an 80-page printed 
manual. 256K of memory required. Simplify 
debugging! $60 COMPLETE. 


TURBO EXTENDER™ 


Turbo EXTENDER provides you the following 
powerful tools to break the 64K barrier: 


= Large Code Model allows programs to use all 
640K without overlays or chaining, while 
allowing you to convert existing programs with 
minimal effort; makes EXE files; 


= Make Facility offers separate compilation 
eliminating the need for you to recompile 
unchanged modules; 


= Large Data Arrays automatically manages 
data arrays up to 30 megabytes as well as any. 
arrays in expanded memory (EMS); 

= Additional Turbo EXTENDER tools include 
Overlay Analyst, Disk Cache, Pascal Encryptor, 
Shell File Generator, and File Browser. 


The Turbo EXTENDER package includes two DSDD 
disks, complete source code, and a 150-page 
printed manual. Order now! $85 COMPLETE. 


TURBOPOWER UTILITIES™ 


“If you own Turbo Pascal, you should own 
TurboPower Programmers Utilities, that’s all there 
is to it.” Bruce Webster, BYTE Magazine 


TurboPower Utilities offers nine powerful pro- 
grams: Program Structure Analyzer, Execution 
Timer, Execution Profiler, Pretty Printer, Command 
Repeater, Pattern Replacer, Difference Finder, File 
Finder, and Super Directory. 


The TurboPower Utilities package includes three 
DSDD disks, reference card, and manual. $95 with 
source code; $55 executable only. 


ORDER DIRECT TODAY! 


= MC/VISA Call Toll Free 7 days a week. 
800-538-8157 x830 (US) 
800-672-3470 x830 (CA) 

= Limited Time Offer! Buy two or more 
TurboPower products and save 15%! 

= Satisfaction Guaranteed or your money back 
within 30 days. 


For Brochures, Dealer or other Information, 
PO, COD —call or write: 


a 


ctUR3@ 


™ 


































































3109 Scotts Valley Dr., #122 
Scotts Valley, CA 95066 
(408) 438-8608 

M-F 9AM-5PM PST 


The above TurboPower products require Turbo Pascal 3.0 
(standard, 8087, or BCD) and PC-DOS 2.X or 3.X, and 
run on the IBM PC/XT/AT and compatibles. 
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IMMED MOVEA .W 
TAS 


RTS 


-BYTE 
-ASCITI 
- WORD 
- WORD 
COLON JSR 
JSR 
TAS 
RTS 


-BYTE 
-ASCII 
-WORD 
MOVE .W 
TAS 
RTS 


CODE 


- BYTE 
- ASCII 
- WORD 
- WORD 
SEMI MOVE .W 
CLR.B 
CLR.B 
MOVE .W 
RTS 


-BYTE 

- ASCII 
- WORD 

-WORD 

MOVE .W 
RTS 


COMMA 


-BYTE 
-ASCII 
- WORD 
MOVE .W 
JSR 
RTS 


LITERAL 


- BYTE 

-ASCII 

- WORD 
INTRACTV TAS 

RTS 


- BYTE 

-ASCII 

- WORD 
BASECODE LEA 

MOVE .W 

RTS 


- BYTE 
- ASCII 
- WORD 
CBLCODE LEA 
MOVE .W 
RTS 


-BYTE 
-ASCII 
-WORD 
EDBCODE LEA 
MOVE .W 
RTS 


-BYTE 

- ASCII 

-WORD 
DICTCODE LEA 

MOVE .W 

RTS 


- BYTE 

- ASCII 

- WORD 
LOAD GETBLOCK 

RTS 


-BYTE 
-ASCITI 
- BYTE 
- WORD 
GO CLR.B 
JSR 


-BYTE 
-ASCII 

- WORD 
SAVBLOCK 
RTS 


SAVE 


- BYTE 
- ASCII 
- WORD 
TYPE MOVE .W 
SUBO.B 
MOVEA .W 
PUT MOVE .B 
TPUT 
-WORD 
- WORD 
RTS 


DICT,AO 


(AO) 


1 

usu 

0 
IMMED-6 
TOKEN 
HEADER 
FCOLON 


132 
"COD" 
COLON-6 
#16, BASE 
FCODE 


129 

“yu 

0 

CODE-6 
#10,BASE 
FCOLON 

FCODE 
#04E75H, (AS) + 


1 

uo 

0 

SEMI-6 
(A6)+, (A5)+ 


7 

"rrT" 

COMMA-6 
#03D3CH, (A5)+ 
COMMA 


11 

“INT! 
LITERAL-6 
FINT 


4 

"RAS iu 
INTRACTV-6 
BASE, AO 
AO, - (A6) 


6 

"CBRL" 
BASECODE-6 
CBLOCK,A0 
AO, - (A6) 


5 

"EDB" 
CBLCODE-6 
DISKBUF, AO 
AO, —(A6) 


os 

"DIc" 
EDBCODE-6 
DICT, AO 
AO, —(A6) 


4 
"LOA" 
DICTCODE-6 


"co" 


LOAD-6 
FINT 
CR 


"SAV" 
GO-6 


* 

“Typ u 

SAVE-6 
(A6)+,D1 
#1,D1 


(A6)+,A0 


(A0)+,D0 


51C9H 
OF FF6H 


Se Se Ve Se te ve 


‘e 


Se Ye 


ve 


+. 


Se Ye Me ve 


. 


ve 


ve 






Listing Two (Listing continued, text begins on page 22.) 


; get address of most recent word 


set precedence bit 


get token 
make header 
set colon flag 


CODE 


change BASE to hex 
set code flag 


; change BASE to decimal 
; Clear colon flag 

; clear code flag 

; compile "RTS" 


“ou 
’ 


; pop number to dictionary 


LITERAL 


compile literal code 
compile constant 


INTERACTIVE 


; set interactive mode 


. 


. 


‘e 


™. 


we 


BASE 


push BASE address 


CBLOCK 


push CBLOCK address 


EDBUF 


; get edit buffer address 
; push it 


DICT 


get dictionary address 
push it 


LOAD 


system dependent macro 


GO 


+ leave interactive mode 
* restart input sequence 


SAVE 


* System dependent macro 


TYPE 


: get character count 






; get buffer address 


DO 


send buffer character 
to terminal 
UNTIL exhausted 


(continued on page 58) 
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Turbo Tech Report Gl make 
@ point io aderegs the entire 


Turbo Tech Report 
peaks Your Language. 





The newsletter/disk publication for Turbo Pascal®users 


Are you a devoted Turbo Pascal programmer, 
tired of reading about other languages? Are you 
looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or 
incorporate into your programs? Are you 
interested in improving and expanding your 
Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report. the bimonthly newsletter/disk publication 
from the publishers of Dr. Dobb's Journal and 
Micro/Systems Journal. Each issue delivers more 
than 250K of Turbo Pascal source code programs 
on disk, and 20+ pages of articles, Turbo Pascal 
software and book reviews, and analysis and 
commentary. It’s the only publication delivering 
such focused technical articles with code on 
disk—and it doesn’t waste your time with 
information about other programming 
languages. Each valuable issue contains: 

e Articles on topics like speedy 3D graphics, 
mathematical expression parsers, creating global 
gotos, memory resident and Al applications and 
more—all written by Turbo experts. 

e Reviews of the latest Turbo Pascal software 
programs from companies like Borland 


ee 


International, Blaise Computing, Media 
Cybernetics, Nostradamus, TurboPower Software, 
and more! 

¢ News and commentary detailing the 
latest products and developments in the Turbo 
Pascal programming community. 

¢ A disk filled with Turbo Pascal code! 
You'll get the Turbo Pascal utilities and routines 
discussed in the newsletter’s articles, as well as 
applications developed by Turbo users from 
around the world. You'll receive programs that 
make labels, generate menus, provide faster 
screen access, transfer files between CP/M and 
MS-DOS computers, and more! 

If you’re an expert Turbo Pascal programmer 
or a novice interested in expanding your Turbo 
skills, you need a publication that speaks your 
language: Turbo Tech Report. Subscribe today at 
the special price of just $99—that’s 33% off the 
regular price of $150. To order by credit card, 
call toll-free 1-800-528-6050 ext. 4001 and ask 
for item 300. Or mail the attached coupon with 
your payment to Turbo Tech Report, 501 
Galveston Drive, Redwood City, CA 94063. 


Turbo Pascal is a trademark of Borland International Inc. 
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MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


ANSI-"” 
CONSOLE 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


For the IBM-PC, AT, and clones 






ln i di a 2 2 ee ee ee ee oe oe ee ee ee ee ee ee 





New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 


Now uses EMS/EEMS for Scroll Recall 
New Menu Program for Changing Options 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


a a a a nd a a a a a a a a a a a a A a 2 ee ee ee oe ee 2 oe ee oe ee ee ee 


ye oe 2 oe oe 2 ee ee ee ee ee ee ee ee ee 2 2 ee ee 2 ee ee ee 


¢ Speed up your screenwriting 2-6x 

¢ Extend your ANSI.SYS to full VT100 
¢ Add many more escape sequences 
¢ Scroll lines back onto screen 

¢ Save scrolled lines into a file 

¢ Add zip to your cursor keys 

¢ Free your eyes from scroll blinking 
¢ Easy installation 

* Get a 43 line screen w/EGA 

* Get a 50 line screen w/CGA 

¢ No more annoying typeahead beep 
¢ Prevent screen phospher burnin 

¢ Control many programs’ use of color 
* Generate breakpts from keyboard 

¢ Shorten that annoying bell 

° Over 50 other useful options 


JIALIG] BJOSUOD ISNYV }S84 


“The psychological difference is 
astonishing”’ 
—Lotus June 85 pg 8. 















“So many handy functions rolled into 
one unobtrusive package” 
—PC-World Feb 86 pg 282. 


“The support provided by the 
publishers is extraordinary” 
— Capital PC Monitor May 86 pg 25. 


"... the best choice for improving your 
console...” 


—Capital PC Monitor June 86 pg 26. 


460p Manual (w/slip case) & disks $75. 


Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 


DEALER INQUIRIES INVITED 


BOO eISSN ast ANSI Console Driver 
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- BYTE 1 
-ASCII ye 
- WORD 0 
- WORD TYPE-6 
PRINT MOVEQ #13,D0 
TPUT 
MOVEQ #10,D0 
TPUT 
MOVEA .W AS,A0 
MOVE. L BLANK, (A0) + 
MOVE.L BLANK, (AQ) + 
MOVE.L BLANK, (AQ) + 
MOVE. L ZERO, (AO) + 
MOVE .W (A6) +, D2 
BGE DLOOP 
NEG.W D2 
TAS FNEG 
DLOOP ANDI.L #65535, D2 
BEQ TSTMINUS 
DIV DIVS BASE, D2 
MOVE.L D2, D0 
SWAP DO 
CMPI.B #10,D0 
BLT PREFIX 
ADDQ.B #7,D0 
PREFIX ADDI.B #48,D0 
MOVE .B DO, - (AO) 
BRA DLOOP 
TSTMINUS BCLR #7, FNEG 
BEQ PRNT 
MOVE.B #45,-(A0) 
PRNT MOVE .W A5, - (A6) 
MOVE .W #16,-(A6) 
JSR TYPE 
RTS 
- BYTE 2 
-ASCII 3" 
- BYTE 0 
«WORD PRINT-6 
SPRINT LEA UNDRF LW, Al 
MOVEA .W A6,A2 
BOTTOM CMPA.W Al,A2 
BEQ DONE 
MOVE .W (A2)+,-(A6) 
JSR PRINT 
BRA BOTTOM 
DONE RTS 
- BYTE 129 
- ASCII =¢? 
- WORD 0 
-WORD SPRINT-6 
CMMNT MOVE .B (A4) +, D0 
CMPI.B #41,D0 
BNE CMMNT 
RTS 
-BYTE 
- ASCII "QUI" 
- WORD CMMNT-6 
QUIT XS TOP 
RTS 
LAST - BYTE 6 
- ASCII "LOG" 
«WORD QUIT-6 
LEA BUFPNT, AO 
MOVE .W AS, {A0) 
RTS 
BUFPNT - WORD BUFFER 
BUFFER -WORD 
- END 


Listing Three 


(Listing Three) 
("inner shell" words for FLINT) 


we 


Se Ye Ye Be Ye Ve 


*. . . ee Me Se Ye Ve Ye Se Ye Ye Ye Ye Be Ye 


we 


Se te Ye Ye Me 


» 


. 






Listing Two (Listing continued, text begins on page 22.) 


send CR 


get buffer pointer 


zero out buffer 


pop number 
if negative 
make positive 
set negative flag 
while quotient not 0 do 
clear remainder 
divide by base 
(do dirty work in D0) 
get remainder 


convert to digit 


make ASCII prefix 
place digit in buffer 


; test and clear negative flag 


if set 
put minus sign in buffer 


; push buffer address 
; push buffer length 
; type number 


get address of bottom 
while above bottom do 


push next number 
print it 


u qs 


; get character from input buffer 
Santi *}* 


QUIT 


; return to monitor 


ee 


LOGOFF 


save dictionary pointer 


End Listing Two 


(The "->" symbol when used in a comment signifies that the) 
(instruction corresponding to the preceding assembler) 
(mnemonic will be written in the dictionary at execution time.) 


: CONSTANT er 2 og) creates a constant) 
TOKEN HEADER LITERAL CODE 3AFC 4E75 {- Es 3 =S.55-"* 


: CREATE ( << creates the header and code body for a variable) 
TOKEN HEADER CODE 2AFC 41FA 0006 ( lea 6[a5],a0 => 
3AFC 3D08 ( move.w a0,-[a6] -> ) 
3AFC 4E75 Cees =>) 3 
: ALLOT 2. tae used after CREATE to allocate space for a ) 
( variable or an array ) 
CODE DADE ( ADDA.W {[A6]+,A5 ) 


: VARIABLE (= 
CREATE 2 ALLOT ; 


creates a variable) 


: @ (a--n “fetch" - replaces an address with its value) 
CODE 30SE ( MOVEA.W {A6]+,A0 ) 
3D10 ( MOVE.W [A0],-[A6] ) 
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stores a word length value in the address) 


ee LOD Se eee 3 
CODE 305E ( MOVEA.W [A6]+,A0 ) 
309E ( MOVE.W [A6]+, [AO] ) ; 
: ! BYTE (Nia o= _ stores a byte length value in the address) 
CODE 305E ( MOVEA.W [A6]+,A0 ) 
4A1E ( TST.B [A6]+ ) 
109E ( MOVE.B [A6]+, [AO] ) ; 
: HEX ( -- changes the system base to 16) 
16 BASE ! ; 
: DECIMAL i changes the system base to 10) 
10 BASE ! ; 
: SWAP (- ni, n2 <= n2-nl 
CODE 221E ( MOVE.L {[A6]+,Dl1 ) 
4841 ( SWAP Dl 
2D01 ( MOVE.L D1,-({A6) ) ; 
: DUP (no ny 
CODE 3D16 ( MOVE.W [A6],-[A6] ) ; 
: 9 2 tests the top value, drops it, and sets CCs) 
CODE 4A5E ( TST.W [A6]+ a 
ee | (meee 2 synonym for "2" used to emphasize the drop) 
CODE 4A5E ( TST.W [A6]+ ig 
: OVER ( ni. o2,.>-.o1-n2 m1 ) 
CODE 3D2E 0002 ( MOVE.W 2(A6],-[A6] ) ; 
: 2DUP ( Di? =" nl on2 11 n2:. } 
OVER OVER ; 
: >R Oe: eles removes a value from the parameter stack ) 
( and places it on the return stack ) 
CODE 221F ( MOVE.L FAT EF, BL) 
3F1E ( MOVE.W ([A6]+,-[A7] ) 
2F01 ( MOVE.L D1l,-(A7} ) : 
: <R ee removes a value from the return stack ) 
( and places it on the parameter stack ) 
CODE 221F ( MOVE.L [A7]}+,D1 ) 
3D1IF ( MOVE.W [A7]+,-[A6] ) 
2F01 ( MOVE.L D1,-[A7]) ) ? 
: ROT (‘nl-n2°-n3. -- n2 n3 ni ) 
>R SWAP <R SWAP ; 
i (ml. RZ. -=- nitmnzZ) 
CODE 321E ( MOVE.W [A6]+,D1 ) 
D356 ( ADD.WD1, [A6] y:-z 
= Ch ==} 
CODE 4456 ( NEG.W [A6] ) ; 
= ¢ ni. n2--—-ni<n2. } 
~ + 
* ( nl a2.) ni *nZ.) 
CODE 321E ( MOVE.W ([A6]+,D1 ) 
C3DE ( MULS [A6]+,D1 ) 
3D01 ( MOVE.W D1,-(A6] ) ; 
: /MOD ( nl n2 -= nl/n2 nl mod n2 ) 
CODE 321E ( MOVE.W {[A6]+,D1 ) 
341E {( MOVE.W [A6]+,D2 ) 
48C2 ( EXT.LD2 ) 
8561 ° ( DIVS. D1i,Dd2 ) 
3D02 ( MOVE.W D2,-[A6] ) 
4842 ( SWAP D2 
3D02 ( MOVE.W D2,~-{A6]') 3s 
a ( nl n2 -- nl/n2 ) 
/MOD \ ; 
: MOD ( nl n2 -— nl ‘mod n2 ) 
/MOD SWAP \ ; 
0< Cr —— £ returns a true flag if n < 0) 
CODE 4A56 ( TST.W [A6] ) 
6D04 ( BLT 4[PC] ) 
4256 ( CLR.W [A6] ) 
4E75 ( RTS ) 
3CBC FFFF ( MOVE.W #-1, (A6]_) =: 
&. O> (n—f returns a true flag if n > 0) 
~ 0< 5 
2 < ( nl n2 -- f returns a true flag if next < top) 
=~ O< >; 
se ( na ne --) £ returns a true flag if next > top) 
= O>. + 
: CGET €. == B gets a character from the terminal and) 
( places its ASCII value on the stack ) 
CODE 4EB9 OOFE 0008 ( TGET ) 
3D00 ( MOVE.W DO,-[A6] ) ; 
: EMIT Se Baa te takes an ASCII value from the stack and) 
( sends it to the terminal 
CODE 301E ( MOVE .W [A6]+,D0 ) 
4EB9 OOFE 0008 ( TPUT ) > 
: CLEAR (== erases the screen) 
26 EMIT ; 
: => ( -- increments CBLOCK; loads and executes ) 


the new block [allows chaining] ) 
(continued on page 61) 
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Read what they're saying about 
this new concept in prototyping 
and demo-making: 


‘“‘A winner right out of the 
starting gate. After you use 
DEMO once, you’ll wonder how 
you got along without it.”’ 

— PC Magazine, 4/29/86 


‘“‘Everybody who writes 
software, either commercially 
or for in-house applications, 
should immediately order a 
copy. Period. No exceptions.”’ 

— Soft: letter, 4/20/86 


‘Its low price, superb 
performance, and range of 
applications practically 
guarantee that it will be widely 
used. Four Floppy Rating (8.0)”’ 

— InfoWorld, 3/31/86 


“Apparently has a hit on its 
hands with ...a development 
tool for personal computer 
software that has won rave 
reviews from early users.” 

— Computerworld, 4/7/86 


‘A gem.” 
— PC Week, 3/18/86 


Product of the Month 
— PC Tech Journal, 3/86 ON 


: Thousands of developers are de- 
signing better products faster and 
producing more effective demon- 
strations using Dan Bricklin’s Demo 
Program. You can, too. Act now! 


ONLY $74.95 
617-332-2240 


Massachusetts residents add $3.75. Outside of the 
U.S.A. add $15.00. 

Requires 256k IBM PC/compatible, DOS 2.0 or 
later. Supports Monochrome, Color/graphics, and 
EGA Adaptors (text mode only). ; 





SOFTWARE 
GARDEN 


Dept. D 
PO. Box 373, Newton Highlands, MA 02161 
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PAINLESS WINDOWS. 





Windows. Data Entry. Menus. 
Finally,a C programmers’ tool that makes 
them as easy to use as prinitf{(). 


With Greenleaf DataWindows™ 
you move in quantum leaps! 





EE Snazzy Window Treatments aa 


DataWindows represents an important 
breakthrough in C programming tools. It 
sets you free so you can create exciting 
programs quickly and easily, saving both 
time and money! Developed to work with 
the IBM PC, XT, AT, compatibles, and 
MSDOS or PCDOS, DataWindows is a 
carefully tooled system of C functions which 
will jazz up your programs with 
unprecedented efficiency. 


Greenleaf DataWindows is integrated 
windows, transaction data entry, pop-up, 
pull-down, and Lotus style menu systems 
with: 
= Screen Management. You don’t have to 
remember what’s on the display or the 
sequence in which you put it there. 
DataWindows does the grunt work. 
There are no restrictions. 


@ Transaction Data Entry. Data entry 
windows can have any number of fields 
with sophisticated options for reading 
many data types. Calls are made to help, 
validation, and other functions. Full 
featured text editing, protected and 
mandatory fields, dBASE type picture 
strings, context sensitive help, validation 
of fields and transactions, redefinable 
keys, password entry, attribute control, 
keyboard idle and much more. 


m Device Independence. It detects the type 
of display adapter your computer is using 
and adjusts to it automatically for CGA, 
EGA, or monochrome. Logical video 
attributes are easy to use for color or 
monochrome. 


= Compatibility. Runs with Microsoft 
Windows and IBM TopView. 


= The Greenleaf Tradition of Quality. Reliable 
products. Professional documentation that 
gets you up and running quickly and 
keeps you there. Reference card. 
Newsletter and Bulletin board. 


IBM, Microsoft & dBase, are registered trademarks of International 


Business Machines, Microsoft Corporation & Ashton-Tate respectively. 


PCDOS, IBM PC, XT, AT. & TopView are tradem 
: C, XT, AT, arks of IBM; 
and Microsoft Windows are trademarks of Microsoft = peel pant 





LE 


GE Stop Window Shopping aaa 
Order Today. Or call toll free for a free 
demo of the windows library that makes 
all the others obsolete. 


Order any of these high performance 
tools by calling your dealer or 
1-800-523-9830 today. Specify compiler 
when ordering. Add $8 for UPS second 
day air, or $5 for ground. Texas residents 
add sales tax. MasterCard, VISA, P.O., 
check, COD. In stock, shipped next day. 





Greenleaf DataWindows $225 
DataWindows Source Module $225 
The Greenleaf Comm Library v2.0 $185 
The Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $325 
Digiboard Comm/8-II $935 





GREENIEAF 
Cs 
1411 LeMay Drive, Suite 101 
Carrollton, TX 75007 
Call Toll Free 
1-800-523-9830 
In Texas and Alaska, call 


214-446-8641 
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SeSEeeees Window Dressings RR 


= Simple or Complex Windows. Up to 254 
powerful overlaid windows 
simultaneously, all with just one kind of 
window to remember! Yet any window 
can be from one character to 32K! 


= Easy Window Operations. DataWindows 
lets you move, zoom, frame, title, change 
colors, titles, frames, size, location, and 
make windows visible or invisible at will! 
Functions set cursor, attributes, and write 
data to any window or “current window”. 
Word wrap, auto scroll, keyboard 
functions. 


= Write to Any Window Any Time. Windows 
may be visible, overlaid, or invisible, and 
you can write to them anyway. What you 
write will be seen when the windows 
become visible. 


= DataWindows is fast! It writes directly to 
video memory (in some modes). 


@ Easy to save! Any window, complete with 
attributes, can be saved on disk quickly 
and efficiently. 


@ Source code available. No royalties. 


ee Also from Greenleaf: ay 


The Greenleaf Functions v3.0 
The most complete, mature C language 
function library for the IBM PC, XT, AT 
and close compatibles. Includes over 225 
functions — DOS, disk, video, color text 
and graphics, string, time/date, keyboard, 
disk status and Ctrl-Break functions plus 
many more. 


The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its kind. Over 
120 functions — ring buffered, interrupt 
driven asynchronous communications for 
up to 16 ports simultaneously with 
XMODEM, XON/XOFF, many many 
sophisticated features. 


We support all popular C compilers for 
MSDOS/PCDOS: Microsoft, Lattice, 


Computer Innovations, Aztec, DeSmet, 
and others. 






Listing Three (Listing continued, text begins on page 22.) 






CBLOCK @ 2 + CBLOCK ! LOAD GO ; 





: 32> ie.) 
CODE 3AFC 4A5SE ( tst.w [a6]+ ->); 












: BRA> 
CODE 3AFC 6000 





: BEQ> ( 
CODE 3AFC 6700 







: BNE> ( = } 
CODE 3AFC 6600 ( bne >); 


: MARK ( a pushes the contents of the dictionary pointer) 
CODE 3D0D ( MOVE.W AS, —-[A6]_) 3 











: SPLIT ( _cc a) 
2> BEQ> MARK 2 ALLOT ; 







: JOIN (es 
DUP MARK SWAP - SWAP ! ; 






a ae 


(¢ ~~ a2 Se sts. 4 
SPLIT ; IMMEDIATE 












: THEN 


i. 2 x == ) 
JOIN ; IMMEDIATE 












: ELSE (2 @L- = 22 


BRA> MARK 2 ALLOT SWAP JOIN ; IMMEDIATE 







:. DO 


ae -- a x -- ) 
MARK ; IMMEDIATE 



















: UNTIL (: a--_ x £--_) 
?> BNE> MARK - , ; IMMEDIATE 





: WHILE ie ee ed 
SPLIT ; IMMEDIATE 

: LOOP (: ala=—. x -- ) 
BRA> SWAP MARK - , JOIN ; IMMEDIATE 





ae -—-a ushes the address of the token which follows ') 


; J p 
TOKEN DICT @ SEARCH IF ELSE WHAZZAT THEN ; 










: FORGET ( -- erases the dictionary entries for the token following) 
( FORGET as well as all tokens which succeed it in the ) 
( dictionary ) 
' pUP 2-@ DICT! 6 - CODE 3A5E ( MOVEA.W (A6)+,A5 ) ; End Listings 








A special offer to our readers... 
A SPECIAL ers 

Call toll free 1-800-528-6050 ext. 4001. 

S O ET ST é i - (R) Refer to product item #400. Or send this coupon with payment 

to Dr. Dobb’s Journal of Software Tools, 501 Galveston Dr., 


Redwood City, CA 94063.Please be sure to specify software 


Pe AD E R O FFE i format (MS/DOS, Macintosh, Apple Il). CA residents add ap- 


propriate sales tax. 


FR O VI $ Please specify format: 
A 


| |MS-DOS [LJ]Macintosh [] Apple tl 


D R is DO IB Ee : S [_] Payment enclosed (check or money order) 


JOURN AL [_] VISA [_] MasterCard panecoe 
OF SOFTWARE TOOLS Card No. Exp. Date 


Signature 


The price: (x. 
$199.95 complete 
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MICROWAY MEANS 8087 PERFORMANCE 


FastCACHE-286" 


Runs the 80286 at 8.5 or 11 MHz and the 
80287 at 5, 6 or 11 MHz Includes 8 
kbytes of 55ns CACHE Works with more 
PCs than any other accelerator, including 
Leading Edge Model D, Compagq, and 
Turbo motherboards. Includes 8088 
Reboot Switch, DCache and Diagno- 
stics. 





DATA ACQUISITION and 
REAL TIME TOOLS 


DAL” — “Data Acquisition Language.” 


Unkelscope” — A real time data acquis? 
tion, control and process software pkg. 


87 FFT and 87FFT-2 
TransView Menu driven FFT Spectrum/ 
transfer analyzer.................... $250 


RTOS - REAL TIME OPERATING SYSTEM 
A multi-user, multi-tasking real time oper- 
ating system. Includes a configured ver- 
sion of Intel's IRMX-86, LINK-86, LOC-86, 
LIB-86, OH-86 and the MicroWay 
87DEBUG. Runs on the IBM-PC, XT, PC- 
AT and COMPAQ... o5. 05.0... $600 
INTEL COMPILERS Available for RTOS 

FORTRAN-86, PASCAL-86, PL/M-86. 


A2D-160" 


The Fastest 12 bit 
A/D Converter 


$1295 






160,000 Samples per second 

Pseudo Random Noise Generator/DAC 
Optional signal conditioners 

AFM-50 Programmable Low Pass 

riner Module. oes oa at. $225 


a 
Micro aa Oe =f0) a AS) 
Kingston, Mass. 


02364 USA 
(617) 746-7341 


Way 
















LOTUS/INTEL EMS 
SPECIFICATION BOARDS 


MegaPage” The only EMS board which 
comes populated with two megabytes of 
cool-running, low power drain CMOS 
RAM installed Includes RAM disk, print 
spooler, disk cache and EMS drivers. For 
the IBM PC, XT and compatibles...$549 


MegaPage with OK............... $149 


MegaPage AT/ECC™ EMS card for the 
PC AT and compatibles includes Error 
Correction Circuitry. With ECC, 11 RAM 
chips cover 256K so the user never er 
counters RAM errors. Sold populated with 
1 megabyte CMOS .. . $699 or with 3 
megabytes CMOS cool running low 
power drain RAM . . . $1295. Optional 
serial/parallel daughterboard....... 































_ 287 Turbo runs the 80287 
— at 10 or 12 MHzinthe IBM 
| PCAT, compatibles and the 
| newCompagq 386 with 100% 
_ software compatibility. 

















8087 SOFTWARE 


IBM BASIC COMPILER........... $465 
MICROSOFT QUICK BASIC ....... $79 
87BASIC COMPILER PATCH..... $150 






IBM MACRO ASSEMBLER....... $155 
MS MACRO ASSEMBLER......... $99 
87MACRO/DEBUG............... $200 
MICROSOFT FORTRAN.......... $209 
RV PORTEAN: 325 5.6 /6.68 bie $399 
LAHEY FORTRAN F77L......... $477 
MS or LATTICE © ek CALL 
STSC APL*®&PLUS/PC............ $450 
STSC STATGRAPHICS........... $675 
SP ays os we one Sad eS $675 
87SFL Scientific Functions....... $250 
PHOENIX PRODUCTS........... CALL 
FASTBREAK for 1-2-3 V.1A........ $79 
HOTLINK for 1-2-3 V.1A........... $99 


The World Leader 
in 8087 Support! 


Circle no. 300 on reader service card. 
































NUMBER 
SMASHER/ECM" 


Triples the speed of your 
PC, XT or compatible! 


From 


$599 


2: 
¢ 
fe, 





















Accelerator 
Plus 

A Megabyte 

for DOS 


PC Magazine “Editor’s Choice” 









8087 UPGRADES 


All MicroWay 8087s include a one year 
warranty, complete MicroWay Test Pro- 
gram and installation instructions. 


For the IBM PC, XT and compatibles 






8087-2 8 MHz............... $149 
For Wang, AT&T, DeskPro, NEC, Leading Edge 
80287-3 5 MHz.............. $179 
For the IBM PC AT and 286 compatibles 
80287-6 6 MHz............. $229 
For 8 MHz AT compatibles 

80287-8 8 MHz............. $259 
For the 8 MHz 80286 accelerator cards 
80287-1010 MHz.......... $395 
For the Compaq 386 


Call for prices on V20, V30, 
64K, 128K and 256K RAM 


28/7 TURBO-PLUS” 
Speeds up your AT 
Adjustable 80286 Clock 6-12 MHz 
10 MHz 80287 Clock 
Plus Full Hardware Reset......... $149 
Optional 80286-10 







287TURBO-PLUS 
With 80287 10 MHz.. 


Wi Os 12 DAR 65s eh ecient ope te $629 


CALL (617) 746-7341 FOR OUR COMPLETE CATALOG 


MicroWay Europe 

32 High Street 
Kingston-Upon-Thames 
Surrey England KT1 1HL 
Telephone: 01-541-5466 




















How to tackle 
a 300 page monster. 


Turn your PC into a typesetter. 


If you're writing a long, serious document on your IBM PC, you want it to 
look professional. Precise. Easy to read. You want MicroTpX. , z 

MicroTpX was designed especially for desktop publishers Fi a a, > 
who require heavy duty typesetting. It is based on the TrX stan- | hited a 
dard, with tens of thousands of users worldwide. Documents 
from smaller than 30 pages to 5000 pages or more. 
And that’s something that other programs just 
can’t match. 

No other PC software gives you as many 
advanced capabilities as MicroTpX. Superior 
hyphenation control, the sophistication of liga- 
tures ( ffi, fi) and kerning; down-loadable : 
fonts; aesthetic handling of math (+ = f'(z)), 
and foreign language characters; complex table 
construction and multi-column tasks; dot 
matrix, laser printer and phototypesetter 
output. When used with our [ATpX 
macro package, it automatically enu- 
merates and cross-references 
pages, sections, footnotes and illus- s 
trations. Plus it automatically ee’ 
creates your indexes, tables of con- FZgmaauuati 
tents, and even updates them for * / y/ 
you after last minute insertions. Ti) \ es 

So if you want typesetting G/ 
software that’s as serious as ANT | 

A 
q 





























you are about your writing, 
set MicroTpX. Call toll free 
800-255-2550 or 
617-944-6795 to order or 
for more information* Order 
with a 60-day money back 
Suarantee. 


Now available for Macintosh. 


Microl px 
from Addison-Wesley 


Serious typesetting for 


serious desktop publishers. 


*Dealers, call our Dealer Hot Line: 800-447-2226 
(In MA, 800-446-3399), ext. 2643. 


Circle no. 92 on reader service card. 








Listing One (Text begins on page 40.) 


Listing One 


1 Include MacTraps.D 
2 Include ToolEqu.D 
3 Include SysEqu.D 
4 Include QuickEqu.D 
5 PEA —4 (A5) 7 initialize managers 
6 _InitGraf 
7 _InitFonts 
8 MOVE.L #SOOO00FFFF, DO 
y) _FlushEvents 
10 _InitWindows 
11 _InitMenus 
gE CLR.L — (SP) 
13 _InitDialogs 
14 _InitCursor 
a CLR - (SP) 
16 PEA ‘DrD.Rsrc' 
17 _OpenResFile ;open resource file 
18 MOVE (SP) +, D0 ;discard unused result 
fp TTT —-------— Set up menus ---------------------—-—-----—--- 
19 CLR.L — (SP) 7space for handle 
20 MOVE #1, —- (SP) ;menu ID 
21 _GetRMenu 7get Apple menu template 
22 MOVE. L (SP) +, AppleHand1le (A5) ;retrieve & store handle 
23 MOVE.L AppleHandle (A5) , —- (SP) ;put handle back on stack 
24 MOVE.L #'DRVR',-(SP) ;res type for desk accs 
25 _AddResMenu get desk accessories 
26 MOVE.L AppleHandle (A5) , - (SP) 2 
27 CLR - (SP) 7put menu after all others 
28 _InsertMenu put menu in menu list 
29 CLR.L - (SP) 7repeat for other menus 
30 MOVE #2,—-(SP) 
31 _GetRMenu 
32 MOVE.L (SP)+, FileHandle (A5) 
33 MOVE.L FileHandle (A5) ,- (SP) 
34 CLR — (SP) 
35 _InsertMenu 
36 CLR.L - (SP) 
37 MOVE #3,— (SP) 
38 _GetRMenu 
39 MOVE.L (SP) +, EditHandle (A5) 
40 MOVE.L EditHandle (A5) ,- (SP) 
41 CLR — (SP) 
42 _InsertMenu 
43 _DrawMenuBar 
| een ete! Open the window with a text edit record ------------ — 
44 CLR.L —- (SP) 7space for window pointer 
45 MOVE #1,-—(SP) zwindow ID 
46 PEA WindowStorage (A5) ;window storage 
47 MOVE.L #-1,—(SP) ;put window in front 
48 _GetNewWindow 
49 MOVE.L (SP) +,WindowPtr (A5) 
50 MOVE.L WindowPtr (A5),—-— (SP) 
51 _SetPort ;makes window current grafport 
52 CLR.L —- (SP) 7place for text handle 
53 PEA Dest Rect 7destination rectangle 
54 PEA ViewRect ;view rectangle 
55 _TENew establish text edit record 
56 MOVE.L (SP) +, TextHandle (A5) 7get handle 
57 MOVE.L TextHandle (A5) ,-— (SP) 
38 _TEActivate ;make text edit record active 
i a a eda Event loop begins here --------------—-—--------------+-~~ 
Event 
59 _SystemTask 7update desk accessories 
60 MOVE.L TextHandle(A5) ,-— (SP) 
61 _TEIdle 7make cursor blink 
62 CLR — (SP) 7Sspace for boolean result 
63 MOVE #-1,-(SP) 7mask to select all events 
64 PEA Event Record (A5) ;pointer to event record 
65 _GetNextEvent rget event from queue 
66 MOVE (SP) +, D0 7retrieve boolean result 
67 BEQ Event 7no event 
68 MOVE Event Record (A5) ,DO 7get event type ; 
(continued on page 66) 
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“WHEN I 
HEARD ABOUT 
U.S. SAVINGS BONDS’ 
COMPETITIVE 
RATE... 


! COULON’T 
BELIEVE 





O©WARNER BROS. INC. 1986 Used With Permission. 


Everyone's amazed when they 
hear what U.S. Savings Bonds 
have to offer. Savings Bonds 
earn market-based interest 
rates—just like money 
market accounts—so you're 
guaranteed a competitive 
return, no matter what 
happens to interest rates. All 
you have to do is hold your 
Bonds for five years. What's 
more, the interest you earn is 
completely free from state and 
local income taxes. And federal 
taxes can be deferred. For 
more information, call 
1-800-US-BONDS. 

U.S. Savings Bonds— 
They'll make your ears perk up. 


US. SAVINGS BONDS = 


Bonds held less than five years earn a lower rate. 
A public service of this publication. 
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ISN’T IT A PITY... 


Everything Isn’t As 





Accommodating As 





c-tree / r-tree 


FILE HANDLER 


Performance and Portability 


For all the time you devote to developing 
your new programs, doesn’t it make sense to 
insure they perform like lightning and can be 
ported with ease? 


c-tree: Multi-Key ISAM Functions 
For Single User, Network, & Multi 
Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
complete C Source Code. Thousands of profes- 
sional C programmers are already enjoying 
c-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 


Only FairCom provides single and multi-user 
Capabilities in one source code package, 
including locking routines for Unix, Xenix, and 
DOS 3.1., for one low price! In addition, 
c-tree supports fixed and variable record 
length data files; fixed and variable length key 
values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 


r-tree: Multi-Fle Report Generator 


r-tree builds on the power of c-tree 
to provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or to direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiling and can use any text editor to 


REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. Af your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 


r-tree reportscripts can define any number 
of virtual fields based on complex computational 
expressions involving application defined data 
objects and other virtual fields. In addition, 
r-tree automatically computes values 
based on the MAX, MIN, SUM, FRQ, or AVG of 
values spread over multiple records. r-tree 
even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you fo distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied fo an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
to work for you. Order c-tree today for 
$395 or r-tree for $295. (When ordered 
together, r-tree is only $255). For VISA 
MasterCard and C.0.D. orders, call 314/445- 
6833. For ¢- tree benchmark comparisons, 
write FairOom, 2606 Johnson Drive, Columbia, 
MO 66203. 


Complete C Source Code & No Royalties! 


Xenix is a registered trademark of Microsoft Corp. Unix is a registered trademark of AT&T. 





Circle no. 93 on reader service card. 
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Listing One (Listing continued, text begins on page 40.) 


69 CMP #mButDwnEvt, DO 7mouse event? 

70 BEQ MouseEvent 

ae CMP #keyDwnEvt , DO 7key pressed? 

72 BEQ KeyEvent 

73 CMP #upDatEvt,DO 

74 BEQ Update ;refresh? 

75 BRA Event zno desired event posted 

,------------------------ Handle key down events --—-------------—--—----—---- 
KeyEvent 

76 MOVE Event Record+evtMeta (A5) ,DO 

77 BTST #cmdKey , DO 7;command key pressed? 

78 BNE KeyboardEquivalent 

79 MOVE Event Record+evtMessaget+2 (A5),-(SP) ;character pressed 

80 MOVE..L TextHandle(A5) ,-(SP) 

81 _TEKey zinsert character 

82 BRA Event 
KeyboardEquivalent 

83 CLR.L — (SP) zplace for menu ID & item nubmer 

84 MOVE Event Record+evtMessaget2 (A5)},-(SP) ;character 

85 _MenuKey ;which menu? 

86 BRA Selections 

}-------------------- Update the text window --------------—-------—-—- 5% 
Update 

87 MOVE.L WindowPtr (A5) ,- (SP) 

88 _BeginUpdate 

89 MOVE.L WindowPtr (A5) ,- (SP) 

90 _SetPort 

91 PEA ViewRect 

92 MOVE.L TextHandle (A5) ,- (SP) 

93 _TEUpdate 

94 MOVE.L WindowPtr (A5) ,- (SP) 

95 _EndUpdate 

96 BRA Event 

pW ——=-—---—-——— Handle mouse down events -—-------------------- = aa 
MouseEvent 

97 CLR —- (SP) 7space for “what" result 

98 MOVE.L Event RecordtevtMouse (A5),-(SP) ;place where event occurred 

99 PEA WhichWindowPtr(A5) ;window affected goes here 

100 _FindWindow rget exact location of event 

101 MOVE (SP) +, D0 7;recover result 

102 CMP #inMenuBar, DO zin menu bar? 

103 BEQ MenuBar 

104 CMP #inSysWindow, DO zin desk accessory? 

105 BEQ SysEvent 

106 CMP #inContent ,DO zin text edit area? 

107 BEQ App1lWindow 

108 CMP #inGoAway, DO zin close box? 

109 BEQ GoAwayBox 

110 BRA Event 7not an event this program handles 

;———--—--------— Handle events in system windows ------------------- 
SysEvent 

111 PEA Event Record (A5)} 

132 MOVE.L WhichWindowPtr (A5) ,-(SP) zwindow posting event 

113 _SystemClick zlet system handle it 

114 BRA Event 

7——————————=—————=—<— Handle events in content area of window ---------—- 
ApplWindow 

115 PEA Event Record+evtMouse (A5) 7event location 

116 _GlobalToLocal ;convert coordinates 

Eat EP MOVE..L Event Record+tevtMouse (A5),-(SP) ;coordinates now local 

118 MOVE Event Record+evtMeta (A5) ,DO 

119 BTST.L #shiftKey,DO 7extended selection? 

120 SNE DO 

121 MOVE.B DO, —- (SP) 7extend or not extend 

122 MOVE.L TextHandle (A5) ,- (SP) 

123 _TEClick zset selection range 

124 BRA Event 
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C DYNAMO 


FREE! UNIX' WORKALIKE FREE! 


(See Limited Time Special Offer Below) 


NEW 
DYNAMO DATA ENTRY 


UNIQUE, POWERFUL, NECESSARY 
Full Validation of Each Keystroke 
Range Checking 
Data Security to Item Level 
Scrollable Data Entry Forms with Fixed 
& Scrollable Parts 
Allows Forms Larger Than Screen 
Over 34 Item Types 
Powertul ‘‘Picture”’ Capability 
Unique: Mix Text, Data Entry Fields 

With Menu Items 
Full source code. No Royalties 
Code plus manual 


POWER WINDOWS 


MOST POWERFUL YET 
POP-UP WINDOWS FOR 
Menus/Overlays 
Help Screens 
Messages/Alarms 
ZAP ON/OFF SCREEN 
FILE-WINDOW MANAGEMENT 
COMPLETE CONTROL OF: 
Cursor 
Attributes 
Borders 
AUTOMATIC 
Horizontal & Vertical Scrolling 
Word Wrap 

Line Insertion 
The most powertul, flexible and easy 
to use windowing package available! 
Many types of menus. Highlighting. 
Move data between files, keyboard, 
program and windows. Status lines. 
Change size/location/overlapping. 
Move/add/delete/cascade windows. 
Full source code. No royalties. 
3 disks 


C FUNCTION LIBRARY 


BEST YOU CAN GET 
325 FUNCTIONS 
SUPERB DOCUMENTATION 
Most complete screen handling plus 
graphicscursrsor/keyboard/data entry, 
72 string functions with word wrap; 
status andcontrol; utility/' DOS BIOS/ 
time/date functions; printer control & 
more. Special functions. Full source 
code. No royalties. 
4 disks 


$129.95 


$129:95 


$129.95 


tTM AT&T 





PAINT TEXT, HELP MENU & DATA ENTRY SCREENS & WIN- 
DOWS FROM KEYBOARD ¢ COMPLETE INPUT FORMATTING 
e FULL VALIDATION # UNLIMITED WINDOWS ¢ AUTOMATIC 
WINDOW OVERLAY & RESTORE e¢ FULL ATTRIBUTE CON- 
TROL & HIGHLIGHTING ¢ 1-2-3 LIKE MENUS * DRAW BOXES 
& BORDERS ¢ GENERATE ''C”’ CODE WITH TOUCH OF A KEY 


e LEFT/RIGHT/CENTER JUSTIFICATION ¢ SPECIFY ANY FILL 


NEW 
DYNAMO SCREEN 
PAINTER 
AND FORMS CREATOR 


DOES IT ALL 
RIGHT FROM YOUR KEYBOARD 
AUTOMATIC CODE GENERATION 
Data or Help Screens & Windows 
Data Entry Screens & Windows 
Menus 
FAST, FLEXIBLE, EASY 
Save Man-Months of Programming 
Full Control of Screen Attributes 
Monochrome or Color 
by Form, Screen, Window or Item 
FAST EASY MENU GENERATION 
1-2-3 Like, Many Others 
Full Read/Write Security by Item 
Requires Dynamo Data Entry 


Screen painter & manual $129.95 


B-TREE LIBRARY 
& ISAM DRIVER 


POWERFUL DATA MANAGER 
Fixed/Variable length records 
Fast! Easy To Use! 

16.7 Million Records/File 
16.7 Million Keys/File 


Full source. No royalties. $129.95 
MAKE Utility (Snake) $59.95 
SUPERFONTS FOR C 


Super Size Characters 
Monochrome adapter 
Color/graphics adapter 
8 Font Libraries 


Font and Function Library 


C-TERP 


INTERPRETER FOR C 
No Compromise, Full K&R 
Built In Screen Editor 
Fast, Fast Compile/Link 
Use External Libraries! 
Symbolic Debugging 
Single Stepping 
Rave Reviews! 
2 disks and manual 


$49.95 


$299.95 


CHARACTER & CURRENCY SYMBOL e U.S./EUROPEAN 
NUMBER STYLES ¢ MORE DATA TYPES ¢ ONE CALL WILL 
OPERATE ENTIRE SYSTEM ¢ SUPPORTS IBM PC/XT/AT & 
COMPATIBLES « SUPPORTS MICROSOFT, COMPILER LAT- 
TICE, AZTEC, CI86, ANY FULL K:& R OR ANSI! COMPILER 


COMBINE AND SAVE! 


SCREEN PAINTER + DATA ENTRY 


BOL TOR GM ope cea $179.95 
(A $260 VALUE) 


C LIBRARY plus POWER WINDOWS 
BETH WOOO es scr ce ee: $179.95 
+ SUPERFONTS FORC..... $199.95 


(A $310 VALUE) 


C BUSINESS LIBRARY 
INCLUDES C FUNCTION LIBRARY, POWER WINDOWS, 
SUPERFONTS FOR C, B-TREE LIBRARY, ISAM 


(A $440 VALUE + FREE UNIX WORKALIKE) 


C TOTAL LIBRARY 

INCLUDES C FUNCTION LIBRARY, POWER WINDOWS, 
SUPERFONTS FOR C, B-TREE LIBRARY, ISAM and 
C-TERP C interpreter 


AIA IGG sos Sa ire See $499.95 
(A $740 VALUE + FREE UNIX WORKALIKE) 


C DYNAMO LIBRARY #1 
SCREEN PAINTER, DYNAMO DATA ENTRY, POWER 
WINDOWS, C FUNCTION LIBRARY, SUPERFONTS for C 


BEAR Cee elie oe ee $249.95 
(A $570 VALUE) 


C DYNAMO LIBRARY #2 


ALL OF C DYNAMO LIBRARY #1 


PLUS B-TREE &ISAM....... $349.95 


(A $700 VALUE + FREE UNIX WORKALIKE) 


C DYNAMO LIBRARY #3 
ALL OF C DYNAMO LIBRARY #2 


PLUS C-TERP seeoo tote Ge $549.95 


(A $1000 VALUE + FREE UNIX WORKALIKE) 
**EREE PC UNIX, PCVMS OR O/S TOOL BOX WITH ANY 
PURCHASE OVER $295.00 LIMIT ONE PER CUSTOMER 

Expires 1/31/87 


SPECIAL OFFER 


OPERATING SYSTEMS 
Multi-User Multi-Tasking Networking, Full Source 


LIST 
PCNX™ UNIX WORKALIKE $99 FREE" 
PCVMS™ 99 FREE? 
O/S TOOL BOX™ (Build your 
own operating system) 99 PREE- 


™WENDIN SOFTWARE 

*with purchase of any Entelekon combination 
library priced at $295 or more. 

Limit 1 Special Offer item per customer. 


Expires 1/31/87 


THE C DYNAMO FAMILY ...C TOOLS THAT WORK TOGETHER 


42118 Kimberley, Houston, TX 77024 


Circle no. 173 on reader service card. 


713-468-4412 


Entcickon 


SINCE 1982 


VISA-MASTERCARD-CHECK-COD 


PC-DOS program 
lets your PC 
Read/Write/Format 
over 275 formats 





XENOCA PY spe 


$79.95 + $5.00 S/H Sales Tax if CA. 


Upgrades available from previous versions 


To Order Contact: 
Soar 


XIE Nias 
1454 Sixth Street, Berkeley, CA 94710 
(415) 525-3113 


Circle no. 225 on reader service card. 


Quelo® 68000: rte 


Quelo Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing 
ROMable code, extensive indexed typeset manuals 
and produces S-records, Intel hex, extended TEK hex, 
UNIX COFF and symbol cross references. Portable 
source written in ‘“‘C”’ is available. It has been ported to 
a variety of mainframes and minis including VAX. 


68020 Assembler Package 
For CP/M-86, -68K and MS/PC-DOS ........ $ 750 


68000/68010 Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS..... $ 595 


68000 ‘‘C”’ Cross Compiler 
For MS/PC-DOS by Lattice, Inc. 


With Quelo 68000/68010 Assembler Package $1095 
With Quelo 68020 Assembler Package ...... $1250 





Call Patrick Adams today: Quelo, Inc. 


2464 33rd W. Suite #173 
Seattle, WA USA 98199 
Phone 206/285-2528 


COD, Visa, MasterCard Telex 910-333-8171 


Trademarks: CP/M, Digital Research; MS, Microsoft Corporation; Quelo, 
Quelo, Inc. 


Circle no. 355 on reader service card. 


Dr. Dobb's Journal 


Subscription 
Problems? 


No Problem! 


Ss 


Give us a call and we'll 
straighten it out. Today. 


Outside California 
CALL TOLL FREE: 800-324-3333 


Inside California 
CALL: 619-485-6535 or 6536 
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Listing One (Listing continued, text begins on page 40.) 


;——-----—----—-—--- Handle events in menu bar -----------------------— 
MenuBar 
co CLR.L — (SP) ;space for menu ID & item 
126 MOVE.L Event Recordt+tevtMouse (A5),-(SP) ;place where event occurred 


127 : _MenuSelect ;get menu ID & item 
Selections 


128 MOVE.L (SP)+,D7 ;recover result 


129 MOVE D7,D6 7D6 now has menu item 
130 SWAP D7 ; low-order word has menu ID 
131 CLR — (SP) ;selects all menus 
132 _HiLIteMenu ;remove highlighting 
133 CMP #1,D7 ‘ zapple menu? 
134 BEQ AppleMenu 
135 CMP #2,D7 ;file menu? 
136 BEQ FileMenu 
137 CMP #3,D7 zedit menu? 
138 BEQ EditMenu 
139 BRA Event 
7;—-------------— Handle desk accessories ----------------------------- 
AppleMenu 
140 MOVE.L AppleHandle (A5), -— (SP) 
141 MOVE D6,-(SP) ;menu item 
142 PEA DeskAccName (A5) 7space for desk accessory name 
143 _GetItem 
144 CLR ~- (SP) ;space for reference number 
145 PEA DeskAccName (A5) 7;desk accessory name 
146 _OpenDeskAcc ; 7open the desk accessory 
147 MOVE (SP) +,D0 ;discard result 
148 BRA Event 
j------------ Handle editing --------------------------------- 
EditMenu 
149 SUBQ #1,D6 ;adjust item selected for SysEdit 
150 CLR — (SP) 7space for result 
eS § MOVE D6, — (SP) zadjusted item number 
Loz _SysEdit 
Los MOVE (SP) +, D0 7get result 
154 BNE Event 7system handled edit 
£55 ADDQ #1,D6 yrestore item nuamber 
156 CMP #3,D6 7cut? 
157 BNE EditMenu2 
158 MOVE.L TextHandle (A5) ,- (SP) 
159 _TECut 
160 BRA Event 
EditMenu2 
161 CMP #4,D6 7 Copy? 
162 BNE EditMenu3 
163 MOVE.L TextHandle (A5) ,- (SP) 
164 _TECopy 
165 BRA Event 
EditMenu3 
166 CMP #5,D6 ;paste? 
167 BNE EditMenu4 
168 MOVE. L TextHandle (A5) ,-— (SP) 
169 _TEPaste 
170 BRA Event 
EditMenu4 
171 CMP #6,D6 7;clear? 
5 BNE Event 
173 MOVE.L TextHandle (A5) ,-— (SP) 
174 _TEDelete 
a Ag bs BRA Event 
arn ata ae rs ar Handle file menu -----------------~-~--------------- 
FileMenu 
176 CMP #2,D6 7close selected? 
177 BEQ CloseAndQuit 
178 CMP #4,D6 
179 BEQ CloseAndQuit 7quit selected 


rit!!tall other file menu options are not implemented in this program!!!! 


180 BRA Event 


}- +--+ -------- Close the window and quit -----------------___ — 
GoAwayBox 


a ae ee 
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DeSmet C 


SUPPORTS 


181 CLR.B - (SP) zspace for boolean result 
182 MOVE.L WhichWindowPtr (A5) ,-—(SP) ;window pointer ROMAB LE CODE 
183 MOVE.L Event Record+evtMouse (A5) , — (SP) ;point of event 
184 _TrackGoAway ymonitor GoAway box 
185 MOVE .B (SP}+,DO0 ;get result 
186 BEQ Event 7don't close DeSmet Cc ‘$1 09 
CloseAndQuit . 
187 MOVE.L  TextHandle(A5) ,- (SP) Data & Stack in RAM 
188 _TEDispose ;close text edit record Code executes out of ROM 
189 MOVE.L  WindowPtr (AS), - (SP) Full K&R + V7 extensions 
190 _CloseWindow ;close the window Inline asm 
Assembler, linker, librarian 
os bis ian ate Se Full screen editor (SEEtM), 
Frc Data SER uct URS mene 8087 & S/W floating point 
192 AppleHandle DS.L 1 
193 FileHandle DS.L 1 
194 EditHandle DS.L 1 
195 WindowPtr DS.L 1 : $ 
196 WindowStorage DS WindowSize Soe ped C with 1 39 
ebugger 
197 Text Handle DS.L = 
198 ViewRect DC 3,3,300, 490 Set Breakpoints by line number 
200 Gist Gaeort DS.B 16 Examine Global/Local variables 
201 WhichWindowPtr DS.L 1 by name 
202 DeskAccName DS 16 


Show C source while debugging 
Both D88 and User displays 


End Listing One 


Large Memory $209 


e & 
Listing Two DeSmet C w/ D88 
Bit 32-Bit Pointers (Full Megabyte 
Listing Two Addressing) 
1 it eve Fast Access of Static Data 
Includes the standard compiler 
2 TYPE MENU ;menu templates follow features mentioned above. 
3 a ;resource ID 
4 \14 ;will create Apple icon for title 
: sida ay SaaS SD “Both D88 & Large Memory 
7 New/N tall the rest are menu items available as options at $50 each. 
8 Open/O We also have a C compiler for the 
9 Close/W : 
- rail Mac. $150. Call for details. 
11 Save/S 
12 Page Setup... ie oe 
13 Print/P plus 
14 Quit/Q 
15 a resource ID Graphics $35 
16 Edit 7menu title 1 
+ acre BASICA-like (+src) 
18 - ;straight line - disabled 
19 Cut/X 
21 Paste/V Se 
22 Clear arrereaarin MPs 
; more 
23 TYPE WIND ;window templates follow Mak: 
24 me | ;resource ID & $50 
25 Dr. Dobb's Journal ;window title Full UNIX-level 
26 50 10 310 502 zinitial coordinates 
27 Visible GoAway ;make window visible, draw GoAway box 
28 0 ;window type (standard document window) 
29 0 ;optional reference number eae Tools (+Source) $35 
End Listing Two 
XARRAY $39 
e e 
Listing Three Large Arrays (+source) 
Listing Three 
1 include "“exec/types.i" Gs WARE 
2 include "“exec/exec.i" 
3 include "“intuition/intuition.i" CORPORATION 
P.O. Box C 
4 GALES eee SUNNYVALE, CA 94087 USA 
; ere _Lvo\1 ;calls a system routine (408) 720-9696 TELEX: 358185 
Street Address: 505 W. Olive, #767 
7 xlib macro VISA, MC & AMEX accepted 
: ae _LVO\1 ;for library routines (con ivice ont page ~ 0) 





Dr. Dobb’s Journal, January 1987 es 








Software 


Developers: 


FAR EAST BUSINESS 
OPPORTUNITY 





Kanematsu-Gosho, a prominent Japanese 
trading company, in conjuction with Tokai 
Create, one of Japan’s largest software 
marketing firms are soliciting submissions 
of business related applications software 
for consideration for export to the Japa- 
nese market. 


The Japanese PC market as presently ap- 
proximately 2.5 million units with an an- 
ticipated annual growth rate of 25% over 
the next five years. This offer presents a 
unique opportunity for U.S. software de- 
velopers to enter this burgeoning market 
which has previously been difficult to 
break into. 


Your Japanese partners will be taking care 
of all the translation, marketing and sales 
functions in this most interesting market. 
Successful development companies will be 
rewarded with a substantial revenue 
stream for the term of the contract with 
Japan. 


Submitted products will be subjected to a 
series of evaluations. The initial U.S. based 
screening will be conducted by CSSL, Inc. 
the U.S. representative of the Japanese 
principals. Successful products will be for- 
warded to the U.S. offices of Kanematsu- 
Gosho for further testing and evaluation. 
Final evaluation will be completed by the 
parent companies in Tokyo. 


Please submit full working versions of 
your applications software no later than 
February 28, 1987 to: 


CSSL, INC. 
909 Electric Avenue 
Seal Beach, CA 90740 
Attn: Frank Westall, chairman 
Telephone inquiries: 213-493-2471 


ALL SUBMISSIONS WILL BE HELD IN THE 
STRICTEST CONFIDENCE. 
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Listing Three (Listing continued, text begins on page 40.) 


10 passtext macro 
11 lea \1,A0 ;pointer to text 
12 lea \2,Al ;ptr to Intuition text structure 
13 jsr SetText ;initializes text structure 
14 endm 
to passitem macro 
16 lea \1,A0 ;pointer to menu item structure 
BP move.1 \2,Al ;pointer to next menu item in list 
18 lea \3,A2 ;pointer to text structure 
19 move.b \4,D0 ;keyboard equivalent 
20 move \5,D1 ;offset from top of menu item box 
21 jsxr SetItem ;initializes menu item structure 
22 endm 
23 xlib AllocSignal ;external refs for all system 
24 xlib AllocMem ;routines that the program will call 
25 xlib FreeSignal 
26 xlib AddPort 
27 xlib NewList 
28 xlib FindTask 
29 xlib OpenLibrary 
30 xlib OpenWindow 
31 xlib SetMenuStrip 
ae xlib OpenDevice 
33 xlib DoIO 
34 xlib SendIO 
po xlib Wait 
36 xlib GetMsg 
37 xlib ReplyMsg 
38 xlib CloseDevice 
39 xlib CloseWindow 
40 xlib CloseScreen 
41 xref _AbsExecBase ;exec's base is fixed 
42 FrontPen equ 0 
43 BackPen equ 1 ;for rendering window and text 
3-------------—---- Open Intuition library --------------—---—-—---—------ 
44 move.1 _AbsExecBase, A6 
45 lea IntName, Al zname of library to open 
46 move.1 #0,D0 
47 callsys OpenLibrary 
48 bne Cont inue 
49 rts zunsuccessful opening ends program 
50 Continue clr.1l IntBase 
rom move.1 DO, IntBase zsave base of Intuition library 
3 -------------------—- Create a custom screen -------------------------- 
52 lea TheScreen, AO ;pointer to screen data structure 
e move #0,ns LeftEdge(A0) ;coordinates of screen 
54 move #0,ns TopEdge (AO) 
35 move #320,ns Width (AO) 
56 move #200,ns Height (AO) 
a move #2,ns_ Depth (AO) sgraphics depth 
58 move. #0,ns DetailPen (AO) ;color for details 
59 move. #1,ns BlockPen(A0) ;color for rest of drawing 
60 move #0,ns ViewModes (AO) 
61 move #CUSTOMSCREEN, ns_ Type (AO) 
62 move.1 #0,ns Fonts (AQ) yuse default font 
63 lea ScreenTitle, Al 
64 move.1 Al,ns DefaultTitle (AO) 
65 move.1 #0,ns Gadgets(A0) ;no special gadgets attached 
66 move.1 IntBase,A6 
67 callsys OpenScreen 
68 move.1 DO, ScreenPtr ;results almost always come back in DO 
¢------------------------ Open a window -------------------------------- 
69 lea TheWindow, AO ;pointer to window data structure 
70 move #20,nw_LeftEdge (AO) zyinitial coordinates 
71 move #20,nw_TopEdge (AO) 
72 move.b #0,nw_DetailPen (AO) ;color for characters 
ER: move.b #1,nw_BlockPen(AO) ;color for rest of drawing 
74 lea WindowTitle, Al 
75 move. 1 Al, nw_Title (AO) 
76 move.1 #WINDOWCLOSE+SMART REFRESHt+tACTIVATE+WINDOWDRAG+ 
WINDOWS IZING+WINDOWDEPTH, nw_Flags (AO) 
7system gadgets, etc. 
ta move.1 #CLOSEWINDOW+MENUP ICK, nw_IDCMPF lags (AO) 
7events to be reported 
78 move #CUSTOMSCREEN, nw_Type (AQ) 
79 move.1 #0,nw FirstGadget (AO) ;no special gadgets attached 
80 move.1 #0,nw_CheckMark (AO) ;not using checked menu items 
81 move #150,nw Height (AO) ;initial 
82 move #280,nw_ Width (AO) sinitial 
83 move #100,nw MinWidth(AO) ;since window can be sized 
84 move #25,nw_ MinHeight (AO) 
85 move #640,nw MaxWidth (AO) 
86 move #200,nw MaxHeight (AO) 
87 move.1 ScreenPtr,nw Screen (AO) 
88 move. 1 IntBase,A6 


(continued on page 72) 
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WRITE BETTER C TOOLS PLUS consists of over 200 
C PROGRAMS. 


Programmer’s Connection is pleased to 
present C TOOLS PLUS, one of the most 
complete C language function libraries 
available today. It combines the general 
purpose capabilities of C TOOLS and C 
TOOLS 2 (two packages that receive rave 
reviews for quality, organization, usability 
and documentation) with extensive new 
windowing capabilities. 


For the first time, you can get full 
functioned window support in a general 
purpose library. The routines are easy to 
use for pop-up menus or windows and can 
give you some very advanced capabilities. 
Windows can be stacked, removed and can 
accept user input. There is no limit, other 
than available dynamic memory, to the 
number of windows you can construct and 
use. 


C TOOLS PLUS has fast direct video access 
for efficiency that will not constrain good 
program design. You can write directly to 
the video adapter for efficiency or use only 
BIOS calls if you’re working in a TopView- 
like environment. It fully supports EGA text 
modes including 43-line mode and 
multiple display pages. 


Blaise Computing’s C TOOLS 2 package is 
well-known for effectively allowing you to 
write interrupt service routines in C. C 
TOOLS PLUS takes these capabilities even 
further. It demonstrates how to access DOS 
functions from within an interrupt service 
routine, so now you Can write memory- 
resident routines that access the disk. 


a eg 
BLAISE COMPUTING INC. 


YOUR 

QUALITY 
CONNECTION... 
Blaise Computing products are 
available from Programmer's 
Connection at these low discount 
prices with FREE UPS shipping 
for all US customers (express 
services are available at the 


shipping carrier's standard rate 
with no extra rush fees). 


List Ours 
CIQUISFLUS....s—i“(‘é aé(a)#$#;KN(CN(.. 17/5 135 
ASYNCH MANAGER Specify C or MS Pascal 175 135 
Cis. iC 125 99 
CIOs? ... di‘ ‘ié‘((RCCOtCOONOOCOCC:C(Ctié#C 100 3679 
PASCAL TOOLS for MS Pascal .......... 125 99 
PASCAL TOOLS 2 for MS Pascal ......... 100.) = 79 
PASCAL TOOLS & PASCAL TOOLS, 2 ..... 175 135 
TURBO ASYNCH PLUS for Turbo Pascal ... 100 83 


TURBO POWER TOOLS PLUS TurboPascal.. 100 83 
VIEW MANAGER Specify C or MS Pascal... 275 


Please refer to our main 
advertisement in this journal for 
more information about our 
services as well as the largest 
advertised selection of 
programmer's development tools 
Specifically for IBM personal 
computers and compatibles. 


carefully written functions that are easy-to- 
use and supplied in source code and pre- 
built library form. These tools isolate 
hardware dependence, are small and are 
written predominently in C. 


Some of the areas covered are: @ extensive 
string handling @ screen handling @ 
graphics interface @ general utility and 
keyboard functions © DOS memory 
management @ external program and DOS 
internal command execution @ DOS file 
handling and directory maintenance @ and 
much more. 


All Blaise Computing products come with 
complete, fully documented source code 
as well as a complete comprehensive, 
indexed reference manual. 










C TOOLS PLUS requires an IBM personal 
computer (PC/XT/AT) or compatible, 
although many of the functions require 
only MS—DOS Version 2.00 or later. C 
TOOLS PLUS supports the Microsoft and 
Lattice C compliers (versions 3.00 or later). 


Other quality products for C from Blaise 
Computing include: 


ASYNCH MANAGER — provides the crucial 
core of hardware interrupt support needed 
to build applications that need 
asynchronous communication facilities. It 
also includes routines for XMODEM file- 
transfer protocol and support for Hayes- 
compatible modems. 

VIEW MANAGER — a development system 
for building data entry screens and menus. 
Begin by designing on-screen what the 
operator will see, then call upon library 
functions from your program to display the 
screens and retrieve data. 


y \N 


800-336-1166 
800-225-1166 


OHIO AND OVERSEAS 


216-877-3/81 


CUSTOMER SERVICE 216-877-1110 


programmer's GonnecLion 


136 SUNNYSIDE ST. HARTVILLE, OHIO 44632 


Circle no. 98 on reader service card. 





MULTITASKING 


Introducing 
MultiDos Plus 


The new multitasking software 
for the IBM-PC. 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Plus an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already 
have. Supports software written in 
any language. 

¢ Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend / 
resume programs. 

e Programmatic interface via INT 15H 
for the following. 


* Intertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 
queues. 

Task control by means of 
semaphores. Get/release/ check 





semaphores. 

* Change priority-128 priority 
levels. 

* Suspend task for specified 
interval. 


* Spawn and terminate external 
and internal tasks. 
Disable/enable multitasking. 
and more! 

e Runs most commodity software 
including: Lotus 1-2-3, Dbase, 
Wordstar, and others. 

e¢ Independent foreground / 
background displays. 

e Access to DOS while applications 
are running. 


Hardware/Software Requirements 


IBM PC/XT/AT or true clone. Mono- 
chrome/CGA display adaptors or 
equivalent cards only. Enough memory 
to hold MultiDos Plus (48 KB) and 
all your application programs. Also 
may need 4 or 16 KB memory for 
‘hidden screens’ for each active task. 
MS-DOS (or PC-DOS) 2.0 or later 
operating system. 


ONLY $29.95 +$2.95 S/H 


Outside USA add $7.95 shipping and handling. 


Visa and Mastercard orders call toll- 
free: 1-800-367-6707. In Mass call 
617-651-0091, or send check or money 


order to: N AN O S OFT 


13 Westfield Rd, Natick, MA 01760 


MA orders add 5% sales tax. Write for 
source code and quantity price. 


Circle no. 309 on reader service card. 
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Listing Three (Listing continued, text begins on page 40.) 









89 callsys OpenWindow 

90 lea WindowPtr,A0 

91 move.1 DO, (AO) 

;———----------- Set up the menus ----------------------------- 

92 passtext ProjText1,Projl 7First must initialize all 

93 passtext ProjText2, Proj2 zIntuition text structures. 

94 passtext ProjText3, Proj3 

95 passtext ProjText4, Proj4 

96 passtext ProjText5, Pro js 

97 passtext ProjText6, Pro j6é 

98 passtext ProjText7, Proj7 

99 lea ProjiItem2,A3 7Then must include the text 

100 passitem ProjIteml,A3,ProjText1,#'N', #0 

101 lea Projitem3,A3 zin menu item structures. 

102 passitem Projitem2,A3,ProjText2,#'O',#9 

103 lea Projitem4,A3 

104 passitem ProjItem3,A3, ProjText3, #'S', #18 

105 lea ProjItem5,A3 

106 passitem ProjItem4,A3, ProjText4, #'A', #27 

107 lea Projitem6,A3 

108 passitem ProjItem5,A3, ProjText5, #'P', #36 

109 lea Projitem7,A3 

110 passitem ProjItem6,A3, ProjText6, #'R', #45 

111 passitem ProjItem7, #0, ProjText7, #'Q', #54 

112 lea ProjMenu, AO 7Finally, must initialize the 

123 lea EditMenu, Al 7menu structure itself. 

114 move.1 Al,mu_NextMenu(A0) ;pointer to next menu in list 

LES move #0,mu_LeftEdge(A0) ;place for title in menu strip 

116 move #0,mu_TopEdge(A0) ;ignored 

TL? move #0,mu_Height (AQ) ignored 

118 move #100,mu_Width (AO) 

119 move #MENUENABLED,mu_Flags(AQ) ;menu is enabled 

120 lea ProjName, Al 

ligt move.1 Al,mu_MenuName (AO) 

122 lea ProjiItem, Al 

123 move.1 Al,mu_FirstItem(A0) ;head of menu item list 

124 passtext EditText1, Editl ;Now, repeat process for 

125 passtext EditText2, Edit2 ;the second menu. 

126 passtext EditText3, Edit3 

127 passtext EditText4, Edit4 

128 passtext EditText5, Edit5 

129 lea EditItem2,A3 

130 passitem EditIteml1,A3,EditText1,#'Z2', #0 

131 lea EditiItem3,A3 

132 passitem EditItem2,A3,EditText2,#'X', #9 

133 lea EditItem4,A3 

134 passitem EditItem3,A3, EditText3, #'C', #18 

135 lea EditItem5,A3 

136 passitem EditItem4,A3, EditText4, #'V', #27 

137 passitem EditItemS, #0, EditText5, #'D', #36 

138 lea EditMenu, AO 

139 move.1 #0,mu_NextMenu(A0O) ;end of the list 

140 move #101,mu_LeftEdge (A0) 

141 move #0,mu_TopEdge (AQ) 

142 move #75,mu_Width (AQ) 

143 move #0,mu_Height (AO) 

144 move #MENUENABLED,mu Flags (AO) 

145 lea EditName, Al =f 

146 move.1 Al,mu_MenuName (AQ) 

147 lea EditItem1,Al 

148 move.1 Al,mu_FirstItem (A0) 

149 move.1 IntBase,A6 

150 move.1 WindowPtr,A0O zwindow in question 

154 lea Pro jMenu, Al ;first menu in strip 

152 callsys SetMenuStrip vattach menu strip to window 

ee Initialize message ports for console ------------------ 

Las lea WritePort,A3 ; Storage for pointer to write port 

154 move.1 #0,A5 sunnamed ports - first in list 

a 8 jsxr CreatePort zinitialize the port 

156 move.1 WritePort,A3 ;write port pointer 

157 lea WriteMsg,A5 ;Storage for pointer to IO block 

158 jsr CreateStdIO zinitialize IO block 

159 lea ReadPort,A3 ;Repeat for read port. 

160 lea ReadName, AS zhas name - not first in list 

161 jsr CreatePort 

162 move.1 ReadPort, A3 

163 lea ReadMsg,A5 

164 jsr CreateStdIO 

i _———~wnnneeie, Open: and “attach the console device =— a 

ae move. 1 WriteMsg, A3 output IO request block 
move.l = ReadMsg,A5 zinput IO request block 
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167 move.1l WindowPtr,A4 ;window for this console 

168 jsr OpenConsole 

169 cmp #0,D0 

170 beq Goon 

bof ik rts zunsuccessful opening ends program 

aa capper gs ars boca Terd ISS Ly Signal bits: — 

172 GoOn move.1 WindowPtr,A0 

173 move.1 wd UserPort (A0),AQ ;message port for Intuition 

174 move.b MP_SIGBIT (AO) , DO zIntuition signal bit 

175 lea IntSigBit,A0 

176 move.b DO, (AO) zsave it 

177 move.1 ReadPort, AO 

178 move.b MP SIGBIT (AO) , DO zconsole signal bit 

179 lea ConSigBit,A0 

180 move.b DO, (AQ) zsave it 

i-—------------ —- Queue up an initial read request -------------—---—---—- —_ 

181 move.1 ReadMsg, Al ;console IO request block 

182 lea letter, A4 ;place to put character read 

183 jsr QueueRead ;queue up a message 

3------------- Wait for Intuition or console event ---------------------=- 

184 Event clr.1l D1 

185 move.b IntSigBit,D1 

186 Git DO 

188 bset.1 D1,D0 ;sys will look for Intuition event 

189 rod Sie | D1 

190 move.b ConSigBit,D1 

191 bset.1 D1,D0 zsystem looks for console evt, too 

192 move.1 _AbsExecBase, A6 

193 callsys Wait ;wait for event to occur 

194 cle. 1 D1 ;Note - now a bit in DO is set 

195 move.b IntSigBit,D2 zto correspond to signal causing 

196 bset.1 D2,D1 yevent. 

197 cmp. 1 D1,D0 zIncuition event? 

198 beq Intuit ionEvent 

199 Girt D1 

200 move.b ConSigBit ,D2 

201 bset .1 D2,D1 

202 cmp. 1 D1,D0 7console event? 

203 beq ConsoleEvent 

204 bra Event ;fail-safe trap-'should never get here 

j-------------- Handle Intuition events --------------------—-------—--- 
IntuitionEvent 

205 move.1 WindowPtr,A0 

206 move.1 wd UserPort (A0),AO ;Intuition's message port 

207 move.1 _AbsExecBase,A6 

208 callsys GetMsg ;retrieve the input message 

209 beg Event 7no message present 

210 move.l DO, Al ;GetMsg returns address of message in DO 

211 move.1 im Class (Al) ,DO stype of event 

212 cmp #CLOSEWINDOW, DO ;was window close box clicked? 

213 beq CloseAndQuit 

214 cmp #MENUP ICK, DO ;menu choice made? 

215 beq MenuEvent 
DoneWithEvent 

216 move.1 _AbsExecBase, A6 

217 callsys ReplyMsg ;remove message so it can be reused 

218 bra Event 
MenuEvent 

219 move im_Code (Al) , DO ;menu & menu item number 

220 beq DoneWit hEvent zuser backed out before chosing 

221 move DO,D1 ;save the code 

222 and #%0000000000011111,D0 ;get menu number 

223 cmp #0,D0 ;project menu? 

224 bne DoneWithEvent ;Project menu is the only one 

strapped by this program!!!! 

225 lsr #5,D1 

226 and #%0000000000111111,DO0 ;get menu item number 

227 cmp #6,D1 7Quit selected? 

228 bne DoneWit hEvent 7Quit is the only option 

;implemented by this program!!!!! 

CloseAndQuit 

229 move.1 ReadMsg, Al 

230 ABORTIO ;remove last event from queue 

231 move.1 ReadMsg, Al 

232 move.1 _AbsExecBase, A6é 

233 callsys CloseDevice zclose the console 

234 move.1 WindowPtr,A0 

235 move.1 IntBase,A6 

236 callsys CloseWindow zclose the window 
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J Xeyuse-lemeleloyereyul 


for 
IBM PC/XT/AT & Compatibles 





Versions Available For: 


Microsoft, Supersoft, RyanMcFarland, 
IBM Professional, Lahey, & IBM 


Fortran. 
Forlib-Plus 
$69.95 


Supports graphics, interrupt driven com- 
munication, program chaining, and file 
handling/ disk support. A Fortran coded 
subroutine is included which will plot data 
on the screen either in linear/linear, log/ 
linear, linear/log, or log/log on the appro- 
priate grid. 


Strings & Things 
$69.95 


Supports string maipulations, command 
line usage, DOS call capabilities, SHELL 
generation and data transmission, BATCH 
file control, music generation, PEEKS and 
POKES, PORT access, and general register 
manipulations. 


For- Winds 
$89.95 


Gives the Fortran programmer the capa- 
bility of generating up to 255 windows on 
the screen. Each window can be individually 
scrolled, moved, sized, generated, and 
removed. Both color and monochrome type 
displays are supported. Full source code is 
supplied for customization. 


ACS Time Series 
$495.00 


This is a COMPLETE time series analysis 
package which contains VERY HIGH 
SPEED FFTs, Filter generations, convo- 
lutions, transfer function calculations, auto 
and cross spectra calculations, Cepstrum, 
curve fitting algorithims, coherence calcu- 
lations, and many other associated routines. 
The price includes FULL source code. 


Fortran Scientific 
Subroutine Package 
$295.00 


There are approximately 100 Fortran sub- 
routines included which fall under the 
following 12 categories: 

1) Matrix storage and Operations 2) 
Correlation and Regression, 3) Design 
Analysis (ANOVA), 4) Descriminant Anal- 
ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, 
11) Polynomial Solutions, 12) Data 
Screening. Full source code is included. 


7 ALPHA 


COMPUTER 
@™M™M™seEtERVICE 


ALPHA COMPUTER SERVICE 

5300 ORANGE AVENUE SUITE 108 
CYPRESS; CALIFORNIA 90630 
(714) 828- 0286 


California Residents ' 
Include 6% Sales Tax There are NO license fees 
Circle no. 321 on reader service card. 
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Listing Three (Listing continued, text begins on page 40.) 








! 237 move.l §_ ScreenPtr,A0 
238 move.1 IntBase,A6 
239 callsys CloseScreen 7close the custom screen 
2S nea 240 rts ;return to DOS 
7;------------ Handle console events 
ConsoleEvent 
241 move.1 ReadMsg, AO 
600 DIFFERENT COMPUTER SYSTEMS 243 callsys GetMsg ;retrieve the eo ae ‘ 
244 move.1 WriteMsg, Al ;output IO request bloc 
WORD PROCESSORS TOO 245 lea letter, A4 ;place where character is stored 
QUICK TURN-AROUND 246 jsr ConPutChar ;display the character 
q 247 move.b letter, DO 
PRICES FROM 9 PER DISK 248 cmp #SD,D0 jwas character a <cr>? 
fe TES fe. CATALOG 250 move.b #SA, (A4) ;put line feed in letter 
Zot move.1 WriteMsg, Al 
PORT-A-SOFT 252 jsxr ConPutChar ;add a line feed to the <cr> 
555 S. STATE ST., SUITE #12 Sbrntedt ain 
P.O. BOX 1685, OREM, UT 84057 253 move.l § ReadMsg, Al 
1 -6704 254 move.1 DevAdd, IO DEVICE (Al) 
80 226-670 255 jsxr QueueRead ;go get another letter 
Circle no. 229 on reader service card. 
256 bra Event 
;------- -- Subroutine to load Intuition text structures 
SOURCE CODE LIBRARIAN & 257 SetText move.b #FrontPen, it FrontPen(A0) ;colors for drawing 
258 move.b #BackPen, it _BackPen (AQ) 
REVISION CONTROL SYSTEM | 2° mover® #0, 1¢_ DrawiSde (0) 
260 move #2,it_LeftEdge(A0) ;posn rel to container 
TLIB™ keeps ALL versions of your program in ONE 261 move #1, it_TopEdge (AO) 
compact library file, everi with hundreds of revisions! 262 move.l  #0,it_ITextFont (AO) ;use default font 
‘ 263 move.1 Al, it IText (AO) spointer to the text structure 
+ Super Fast! Updates (deltas) average 5-7 times faster 264 move.1 #0, it NextText (AO) ;no link to other txt structs 


than PC/IX (Unix) SCCS. TLIB updates libraries faster than 
many editors load and save files! 


e LAN-compatible! Shared libraries with PC Network! 


rts 


Subroutine to load menu item structures 


e Synchronized control of multiple reiated source files. SetItem move.l Al,mi_NextItem(AO) ;pointer to next item in list 
: i tEdge (AO) ;posn rel to container 
¢ Use with floppies or hard disk. TLIB doesn't need big 267 move #2,mi_Lef 
temporary files, so you can maintain a 300K library on one 268 move D1,mi_TopEdge (AQ) 
360K diskette, with room to spare, even with TLIB itself on 269 move #100,mi_ Width (AO) 
the same disk. And libraries are more compact than with 270 move #9,mi Height (AO) 
most other revision management systems. 271 move #ITEMTEXT+COMMSEQ+ ITEMENABLED+HIGHCOMP, mi Flags (AO) 
e Perfect for backup. Date and comments kept with each 272 move.1 #0,mi_ MutualExclude (AO) zno mutually exclusive items 
version. High data integrity because library data, once 273 move.1 A2,mi ItemFil1l (AO) ;pointer to text structure 
written, is never modified. Libraries are only appended, to 274 move.b DO,mi Command(A0) ;keyboard equivalent 
minimize the chance of data loss due to a power glitch or 275 move. 1 #0,mi- SubItem (AO) *no subitems 
hardware crash. And TLIB isn’t copy-protected, either. 276 acue #0,mi NextSelect (AQ) ;no associated items 
e Free copy of Landon Dyer’'s excellent public domain MAKE 277 rts a 


utility. With macros, full source code. For DOS & VAX/VMS. 
PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC 


BURTON SYSTEMS SOFTWARE 
P.O. Box 4156, Cary, NC 27511-4156 


(919) 469-3068 


;------------ Create a message port ------<---------------------------- 
;NOTE - this subroutine is an assembly language version of the C source 
;code provided in the’ Amiga ROM kernel manual. It needs error trapping 
zafter the system calls to be complete. 

7Load address of pointer to message port structure in A3. 

;Load pointer to name for message port in AS. 











(continued on page 79) 
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Here’s why you should choose Periscope as your debugger... 


You'll get your programs running fast. “It works 
great! A problem we had for three weeks was 
solved in three hours,” writes Wade Clark of 
MPPi, Ltd. 


You’ll make your programs solid. David Nanian 
says, “I can’t live without it!! BRIEF, a text 
editor my company wrote, would not be as stable 
as it is today without Periscope.” 


You'll protect your investment. We won’t forget 
you after the sale. You'll get regular software 
updates, including a FREE first update and 
notice of later updates. You'll get technical help 
from Periscope’s author. And you’ll be able to 
upgrade to more powerful models of Periscope if 
you need to. One Periscope user writes, “... 


your support has won over even the heart of this 
hardened programmer!” 


You deserve the best. Thousands of programmers 
rely on the only debugger that PC Tech Journal 
has ever selected as Product of the Month 
(1/86). You owe it to yourself to find out why, 
first hand. 


You can try it at no risk. You get an uncondi- 
tional 30-Day, Money-Back Guarantee, so you 
can’t lose. 


Start saving time and money now — order toll- 
free, 800/722-7006. Use MasterCard, Visa, 
COD, or a qualified company purchase order. As 
one user puts it, Periscope is “one of the rare 
products, worth every penny!” 


Periscope I, software, manual, 
protected memory board and 


breakout switch ..................... $295 
Periscope II, software, manual, and 

breakout-switch: 200 2k $145 
Periscope II-X, 

software and manual ............... $115 


Add shipping - $3 US; $8 Canada; $24 elsewhere. 
Ask about air shipment if you can’t wait to get 
your programs up and running! 


PERIS E 


The Periscope Company, Inc. 
(formerly Data Base Decisions) 
14 Bonnie Lane, Atlanta, GA 30328 404/256-3860 


—————————————  ————_ 
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4 REASONS TO CHOOSE We carry the finest selection of the best 
PROGRAMMER'S CONNECTION: programmer's development tools specifically 
for IBM Personal Computers and compatibles. 
They are the latest versions and most come 
with 30-day documentation evaluation 
periods or 30-day return guarantees. 
We firmly believe that high quality must be 


present throughout every aspect of our 
service. So to make sure that we maintain 
such high standards, we include a service 
questionnaire with every purchase. We're very 


interested in what our customers have 
to say. 


Our courteous, knowledgeable, non- 
commissioned salespeople are always ready 


to assist you. We also have experienced 

technical consultants on staff who can answer 

questions about products and provide sound, 
| unbiased advice. We'll support you before 


and after you make your purchase. Your 
satisfaction is very important to us. 


Our buying power enables us to offer you 
the lowest prices without sacrificing service. 


: UPS shipping is FREE to all U.S. customers. 
There are no extra charges for credit cards, 
CODs, purchase orders or special handling 
(except for export preparation). 


Quite simply, the discount prices listed 
with the products on the next two pages are all 
you pay. There are no hidden add-on charges. 


When we started Programmer's Connection 


in 1984, we dedicated ourselves to providing 
high quality personal service to every 
customer. Since then, we've quickly grown to 
be the leading independent dealer in this 


industry. 

We're very proud of the trust we've earned 
from our customers and we pledge always to 
be worthy of It. 


As we enter 1987, wed like to extend 
a ao ireliL¢ et sistas and Call Toll Free 
wish everyone a Happy New Year! 7 

lf you've bought from us before, we United States 800-336-1166 
look forward to serving you again. And if Canada 800-229-1166 
you're not yet familiar with our one-stop Chio & Overseas 216-877-3781 
service, we invite you to give us a Call. 

It's our commitment to quality, support, 
low prices and integrity that makes us 
your best source for the programming tools 
you need. So make the connection today 
and discover the value and convenience 
of our one-stop service for yourself. 
You'll be glad you did! 


Turn the page for our product listing 
and ordering information. 
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apl language 

BEA PLUS PGE CISC hu. 6 PT Cs Ea 
APL*PLUS/PC Spreadsheet Mgr ty STSC . 
APL*PLUS/PC Tools Vol 1 ty STSC.... 
APL*PLUS/PC Tools Vol 2 ty STSC.... 
APL*PLUS/UWNX For AT XENIX by STSC.. . 
Btrieve /SAM File Mor by SoftCraft...... 
Financial/ Statistical Library by STSC... 
PUCEOL ALL DV STOU oS Bin 2 eM cde 
PIATRA ANG DVO TDG: koe ele elk ages 


artificial intelligence 


1st-CLASS dy Programs in Motion 
APT from Solution Systems .......... 
Arity Products Various... ......... 
Autolntelligence dy /nte/ligenceWare .... 
ESP ADVISOR dy Expert Systems Inti... .. 

PROLOG-2 Interface ... 260. 00a. 
ExpertEDGE Advanced by Human Edge .. . 
ExpertEDGE Professional by Human Edge. . 
Experteach Il dy /nte/ligence Ware 
EXSYS Development Software by EXSYS. ... 
GCLISP Golden Common LISP by Gold Hill. . . 
GCLISP 286 Developer Sy Gold Hi//.. ... 
Insight 1 by Level Five Research. ...... 
Insight 2+ dy Level Five Research. ..... 
Intelligence/Compiler /nte//igenceWare .. . 
Logic-Line Series 1 by Thunderstone... . 
Logic-Line Series 2 by Thunderstone... . 
Logic-Line Series 3 by Thunderstone... . 
LPA microPROLOG dy Prog Logic Systems. . 

with APES 
LPA Professional microPROLOG 

WE Get eae teas koe ha et he 
Microsoft LISP Common L/SP 
PC Scheme by Jexas Instruments. ...... 
Personal Consultant Easy dy 7/ 
Personal Consultant Plus by 7/....... 
Personal Consultant Runtime........ 
PROLOG-2 Interpreter by £S/ 
PROLOG-2 Interpreter and Compiler... . 
QNIAL by WAL Systems... ......... 
TransLISP from Solution Systems. ...... 
Turbo PROLOG Compiler 4y Borland /nt/. . . 


assembly language 


386 ASM/LINK Cross Asm by Phar lap... 
8088 Assembler w 2-80 Trans by 2500 AD . 
ASMLIB Function Library by BC Assoc .... 
asmTREE 8&-7ree Dev System by BC Assoc. . . 
Cross Assemblers Various 2500 AD. .... 
Microsoft Macro Assembler........ 
Norton Utilities by Peter Worton....... 
Turbo EDITASM by Speedware........ 
UniWare Cross Assemblers Various. . New 
Visible Computer: 8088 Software Masters. . 


basic language 

BetterBASIC by Summit Software. ...... 
8087 Math Support 
Btrieve Interface............. 
C Interface 


oe, Sule e* 6 
6, 0 6 Ne le ae 


Pe eS a, ee Nera te ae 


EXIM Services Toolkit by EX/V..... New 
Finally by Komputerwerks......... New 
Inside Track from Micro Help. ........ 
MACH 2 by MicroHelp............ 
Microsoft QuickBASIC............ 
Peeks ‘n Pokes from MicroHe/lp 
Professional BASIC ty Morgan 
8087 Math Support 
Stay-Res by MicroHelp.......... New 
True Basic w BASICA Converter. . New Version 
True Basic w Converter & Run-time. ..... 
Advanced String Library......... 
Asynch Communication Support... . 
BASICA Converter 
Btrieve Interface............. 
Developer's Toolkit............ 
TRI 5 cee ees ase Ge ae 
Hercules Graphic Support........ 
Run-time Module............. 


blaise products 


ASYNCH MANAGER Specify C or Pascal . . 
i UL LUG: oo. ed woes Peta ies 
EAEU Erogrear Chainer... OS Se ae 
PASCAL TOOLS... 255 2 298 Fee 


PASCAL TOOLS & PASCAL TOOLS 2.... 
RUNOEF Text formatter. ~ ..04 ss.  S 
TURBO: ASYNCH PEUS (3 oor ec ses 
TURBO POWER TOOLS PLUS........ 
VIEW MANAGER Specify C or Pascal . . 


borland products 
REFLEX Data Base System 
eruen MeOMkShan..°. so. ou). ey 
REFLEX & REFLEX Workshop 
Turbo DATABASE TOOLBOX 


495 
65 
CALL 
990 
895 
395 
2500 
5000 
475 
395 
495 
1190 
95 
485 
990 
90 
125 
150 
99 
149 
395 
650 
250 
95 
495 
2950 
CALL 
450 
895 
375 
95 
100 


495 
100 
149 
395 
CALL 
150 
100 
99 
295 
80 


429 
139 
199 

59 
695 
194 
195 


579 


399 
CALL 
CALL 
CALL 

839 

369 
CALL 
CALL 


199 


Turbo EDITOR TOOLBOX ........... 70 48 
Turbo GAMEWORKS TOOLBOX ....... 70 48 
Turbo GRAPHIX TOOLBOX.......... 70 »=48 
hitto: LIGHTING 65 wo eas 100 +65 
Turbo PASCAL with 8087 and BCD. ..... 100 +65 
Turbo Prolog Compiler............ 100 +65 
Turbo TUTOR for Turbo PASCAL... ..... 40 28 
Word Wet: cases ee ES 70 848 
Word Wizard and Turbo Lightning... . . 150 99 
oe SRE be 
C++ from Guidelines ...... New Version 195 179 
c compilers 
C86PLUS by Computer Innovations... . New 497 CALL 
Datalight C Compiler Sma// Mode/ ..... 60 49 
Datalight Developer Kit w Large Model. . . 99 .- 79 
DeSmet C w Debugger .........24. 159 145 
DeSmet C w Debugger & large Case... .. 209 193 
Eco-C Development System by Ecosoft..... 125 89 
Lattice C Compiler from lattice... .... 500 275 
Mark Williams LetsC........... 1S 
with esd Source Debugger. ........ 150 109 
Mark Williams MWC-86.......... 495 289 
Microsoft C with CodeView.......... 450 275 
UniWare 68000/10/20 
Cross: Compiler .2 = Sot New 595 CALL 
Wizard C Combo dy Wizard Systems. .... 750 599 
Wizart:€ Contgilet: 205 6 eo Pe 450 359 
ROM Development Pkg ......... 350 299 
c interpreters 
C-terp by Gimpel, Specify compiler ...... 300 235 
C Trainer with Book by Catalytix ....... 122 CALL 
Instant C by Rational Systems ........ 500 CALL 
Introducing C by Computer Innovations.... 125 104 
Run/C from bifeboat... eo ee eee 150 89 
Run/C Professional from Lifeboat...... 250 169 
c utilities 
See also Blaise, GSS, Lattice, Microsoft, Phoenix, 
Polytron, SoftCraft and XENIX sections. 
APT by Shaw American Technology ...... 395 299 
Basic C Library by C Source. ........ 175.129 
C Essentials dy Essential Software... ... 100 CALL 
C-ISAM by Informix... 2... ee ee 225 195 
C to dBase by Computer Innovations ..... 150 135 
c-tree & r-tree Combo Package... .Wew 650 529 
c-tree /SAM File Manager by FairCom... 395 329 
f-tree Report Generator .......... 295 249 
C Utility Library by Essential Software ... 185 135 
C Windows by Syscom ............ 100 89 
C Wings by Syecoa 3. ok oa eS. 50 45 
Cl ROMPac dy Computer Innovations... .. 195 CALL 
dbQUERY A// Varieties by Raima ....... CALL CALL 
dbVISTA Single-User DBMS by Raima..... 185." 155 
with SOUree CONG 235 3 8 Kia. She 495 425 
dbVISTA Multi-User DBMS by Raima ..... 495 425 
Wilh SourcWeodss G3 os Sa a ws 990 845 
dBx dBase C Translator by Desktop Al. ... . 350 325 
with Library Source Code. ......... 550 499 
Entelekon Combo Package .......... 200 169 
C Function Library. ........... 130 109 
O WEINGOWS ie oa a Re ee 130 109 
Superfont¢ for C 2. 50 43 
Essential Comm Library 
With DeOOgeel i. a 6 re hi New 250 195 
Breakout Debugger Any /anguage .. New 125 99 
Essential Comm Library ...... New 185 135 
Essential Graphics by Fssentia/ Software. . 250 195 
Flash-up Windows dy Software Bottling . . 90 79 
GraphiC Mono v2.2 by Sci Endeavors... . . 280 209 
GraphiC Co/or v3.0 by Sci Endeavors ..... 350 289 
GRAFLIB by The Librarian... 2 ee ee es 175 CALL 
Greenleaf Comm Library ty Greenleaf ... 185 134 
Greenleaf Data Windows by Green/eaf... 225 189 
with Source COG) oo Ste As be 450 379 
Greenleaf Functions by Greenleaf... ... 185 134 
The HAMMER by OFS Systems. ....... 195 149 
HALO by Media Cybernetics... ....... 300 209 
HELP /Coatrer sy MOS Se a 125 109 
MetaWINDOWS Wo Aoya/ties......... 185 115 
WEP UN Tos oe oe 80 658 
MetaWINDOWS/Plus by Metagraphics ... 235 189 
MeteFORTS/ Flas... oe a ee Se, 235 189 
On-line Help from Opt-Tech Data Proc .... 149 109 
PANEL dy Roundhill Computer Systems .... 295 224 
PC Lint by Gimpel Software. ......... 139 105 
PLOTHI by The Librarian... 2... ke 175 CALL 
PLOTHP by The Librarian... 2... wee 175 CALL 
Sci Subroutine Library by Peerless... . . 175 138 
Vector87 by Vectorplex Data Systems .. New 150 135 
Vitamin C dy Creative Prog. . . . New Version 225 CALL 
VC Screen forms Designer ........ 100 84 
Zview by Data Management Consultants ... 245 189 
cobol language 
Micro Focus COBOL Workbench... ... 4000 3379 
Micro Focus Level 11 COBOL........ 1500 549 
pci sol: RPE SRS eee rare eee: 250 199 
chan es OE BE age ee ae 200 159 


PORMO= 2005s cide 5a oe reee ee 300 259 
Level Il Animator............. 900 349 
Level Il] SOURCEWRITER......... 2000 CALL 
Micro Focus Level ti COBOL for Wove//. .. 2000 1699 
Micro Focus Micro/SPF .......... 175 149 
Micro Focus Professional COBOL ..... 3000 2295 
Multi-user Runtime for PC Network... 500 429 
Microsoft COBOL Compiler......... 700 439 
WOE DIK BE ate, ity eae eee 995 635 
Nenlie-COnee <5 tse ise ee 995 785 
RM/COBOL ty Ayan-McFarland........ 950 639 
RM/COBOL 8X AWS/ 85 
by Ayan MeFarlatide: 60 ee 1250 895 
debuggers & profilers 
386 DEBUG Cross Debugger by Pharlap... 195 159 
Advanced Trace-86 by Morgan Computing... 175 125 
Cl Probe by Computer Innovations. ...... 225 189 
Codesifter Profiler by David Smith... ... 119 98 
Codesmith-86 dy Visua/ Age......... 145 108 
DSD86 by Soft Advances...........4. 70 ~=65 
DSOGT: by Soft Advances. 663 5 Ss 100 89 
Periscope | by The Periscope Company.... 295 245 
Periscope Il w WM/ Breakout Switch... .. 145 109 
Periscope II-X Software only......... 115 84 
The PROFILER with Source Code by OWB .. 125 £94 
The WATCHER Profi/er by Stony Brook... . 60 55 
forth language 
CFORTH Wative Code Compiler by LM/ .... 300 239 
Forth/83 Metacompiler Specify Target... 750 599 
PC/Forth by Laboratory Microsystems .... 150 119 
PC/Forth+ dy Laboratory Microsystems... 250 209 
Advanced Color Graphics Support... 100 £79 
Enhanced Graphics Support....... 200 159 
intel S087 Support... 2... 100 79 
Interactive Symbolic Debugger.... . 100 79 
Native Code Optimizer.......... 200 159 
PCTERM Modem Pgm for Smartmodem.. 100 £79 
Software Floating Point......... 100 79 
UR/Forth by Laboratory Microsystems .. New 350 279 
Object Module Libraries ...... New 500 395 
Source Code License ........ New 1500 995 
fortran language 
50 MORE: FORTRAN by Peerless Engr ... 125 #99 
ACS Time Series A/pha Computer Service... 495 419 
Btrieve /SAM File Mor by SoftCraft...... 245 194 
Essential Graphics by Fssentia/ Software .. 250 195 
For-Winds A/pha Computer Service. ..... 90 78 
Forlib-Plus A/pha Computer Service. ..... 70 4654 
FORTLIB by The Librarian... 2. ee ee 95 CALL 
FORTRAN Addenda dy /mpulse Engr... . . 95 689 
FORTRAN Addendum by /mpu/se Engrs... 165 149 
GRAFLIB by The Librarian. 2. 2. 2 ew ee 175 CALL 
HALO by Media Cybernetics... 2.2... 300 209 
1/0 PRO w Wo Limit Library by MEF ..... 390 349 
Microcompatibles Combo Package .... 240 219 
CIGTINOE oF ose oink Pe 135 119 
PUGET Sa Gee ace Rik 135 119 
Microsoft FORTRAN Compiler....... 350 204 
No Limit by MEF Environmental... ..... 129 °.115 
PANEL Screen Designer by Roundhill..... 295 224 
PLOTHI by The Librarian... 2. ee ee 175 CALL 
PLOTHP by The librarian... bv ee 175 CALL 
RM/FORTRAN Ayan-McFarland........ 595 389 
Sci Subroutine Library by Peerless... . . 175:.. 138 
Statistician A/pha Computer Service. .... 295 249 
Strings & Things A/pha Computer Service . . 70 54 
Vector87 by Vectorplex Data Systems. .... 150 135 
gss products 
GSS Graphics Development Toolkit .... 495 375 
GSS Kernel System for D0S......... 495 375 
GSS Kernel System for /BVAT....... 795 649 
GSS Metafile Interpreter.......... 295 239 
GSS Plotting System ............ 495 375 
lattice products 
Lattice C Compiler from lattice... 2... 500 275 
with Library Source Code.......... 900 495 
C Cross Reference Generator........ 50 38 
with Sourve COW” 25 i GEES One AS 200 145 
C-Food Smorgasbord function Library... . 150 95 
wiih Source C606 5 the eS OR 300 185 
C-Sprite Source Level Debugger. ....... 4175 ~¥28 
Curses Screen Manager............ 125 89 
With Souree Codes & Ri Sa 250 178 
dBC dBase File Manager forC......... 250 178 
with’ Source. Cade ss) 5. ee GS 500 356 
LMK Moke Factiva. oe 195 139 
RPG Il Compiler Wo Roya/ties .. 2.2... 750 635 
RPG Il Combo with SEU & Sort/Merge. . New 1100 939 
SecretDisk File Encryption Utility... .... 120 #89 
SideTalk Resident Communications ...... 120 89 
Text Management Utilities......... 120 89 
TopView Toolbasket function Library... .. 250 178 
WHI SOUTER CONG oe ge 500 356 
2-80 C Cross Compiler........... 500 356 





logitech products 


LOGIMOUSE C7 Mouse Hardware ...... 99 
BIE CRE ok Tee 119 
with PLUS Pkg & PC Paintbrush ...... 169 
with PLUS Pkg & CAD Software ...... 189 
with PLUS Pkg & CAD & Paint....... 219 

MODULA-2/86 Holiday Package ... New 199 

MODULA-2/86 Compiler.......... 89 

MODULA-2/86 with 8087 Support.... 129 

MODULA-2/86 with PLUS Pkg ...... 189 
RADNER OOMICOS 55 ie oa eae 99 
BMAD 2d ce aa oe 29 
UMD bee ee ae an ee 199 
Run Time Debugger ........... 69 
Turbo to Modula Translator....... 49 
ees PaAckaoe = i wa we ed 49 
Window Package............. 49 

REPERTOIRE for MODULA-2 86 by PM/.... 89 

microport products 

System V/AT by Microport Systems ..... 440 
Runtime System (Operating System) ... 159 
Software Development System..... 169 
Text Preparation System ........ 169 

User Upgrade 3 to Unlimited Users ..... 169 

microsoft products 

Microsoft BASIC for XEM/X ......... 350 

Microsoft C with CodeView.......... 450 

Microsoft COBOL Compiler......... 700 
EF AEN Soles Sy 88 wa. Gd RI ee ie oe 995 

Microsoft COBOL Tools with Debugger ... 350 
BS | SR Sa a eres bee 450 

Microsoft FORTRAN Compiler....... 350 
NOP EI oe es ae aca Ea ed 695 

Microsoft Learning DOS........... 50 

Microsoft LISP Common L/SP ........ 250 

Microsoft MACH 10 w Mouse & Windows . 549 

Microsoft MACH 10 Board only. ...... 399 

Microsoft Macro Assembler........ 150 

Microsoft Mouse Bus Version... ..... 145 

Microsoft Mouse Seria/ Version... 2... 195 

Microsoft muMath /nc/udes muS/IMP .... 300 

Microsoft Pascal Compiler......... 300 
TE IIR a eee one a Se 695 

Wiicrosoft QuickBASIC............ 99 

WeGHeOrG SNL 3. 2 i oes eee 195 

Microsoft Windows............. 99 

Microsoft Windows Development Kit... 500 

other languages 

CCS MUMPS Single-User by MGlobal .... 60 

CCS MUMPS Multi-User by MGloba/. .. . . 450 

Janus/ADA C Pack by R&R Software... . 95 

Janus/ADA D Pack dy R&R Software. ... 900 

Methods Smal//ta/k by Digitalk ........ 79 

Personal REXX by Mansfield Software. ... 125 

Smalltalk/V by Digitalk. . 2... ee 99 
Sestak Gamin 2. 5 oa 49 

SNOBOL4+ by Catspaw .. 1... we ee 95 


other products 


Compact Source Print by A/debaran. . . New CALL 
Dan Bricklin's Demo Pgm Software Garden . 19 
FANSI-CONSOLE dy Hersey Micro. ... New 75 
FASTBACK by 5th Generation Systems .... 179 
Informix for DOS by Informix .......4. 795 
Informix4GL for DOS by Informix... .... 995 
InformixSQL for DOS by Informix... 2... 795 
Instant Replay 4y Wostradamus........ 90 
Interactive EASYFLOW dy Haventree .... 150 
MKS Toolkit with vi by MKS... 1.2... 139 
Norton Commander by Peter Norton... .. 75 
OPT-Tech Sort by Opt-Tech Data Proc .... 149 
PrintOQ by Software Directions. ........ 89 
Quilt Computing Combo Package ..... 199 
QMake Program Rebuild Utility ...... 99 
SRMS Software Revision Mgmt Sys.... 125 
screenplay a// varieties by Flexus ...... CALL 
SoftScreen/HELP dy Dialectic Systems . New 195 
Source Print by A/debaran Labs ....... 97 
Taskview by Sunny Hill Software... .... 80 
TLIB by Burton Systems Software. .... New 100 
Tree Diagrammer dy A/debaran Labs . . New CALL 
VTEK ‘Term Emulator by Sci Endeavors. . 150 
phoenix products 
Pasm86 Macro Assembler Version 2.0 .... 195 
Pdisk Hard Disk & Backup Utility. ...... 195 
Pfantasy Pac Phoenix Combo......... 1295 
Pfinish Performance Analyzer. ........ 395 
Pfix-86 Plus Symbolic Debugger. ...... 395 
PforCe Comprehensive C Library. ....... 395 





LOWEST PRICES 


Since this ad is prepared in advance of 
publication, some of our current prices may 
be lower than what's advertised here. Call 
for latest pricing. 


FREE SHIPPING 


Orders within the USA (including Alaska & 
Hawaii) are shipped FREE via UPS. Express 
shipping is available at the shipping carrier's 
standard rate with no rush fees or handling 
charges. To avoid delays when ordering by 
mail, please call first to determine the exact 
cost of express shipping. 


CREDIT CARDS 


VISA and MasterCard are accepted at no 
extra cost. Your card is charged when your 
order is shipped. Mail orders please include 
credit card expiration date and telephone 
number. 


CODs AND POs 


CODs and Purchase Orders are accepted at 
no extra cost. POs with net 30-day terms 
are available to qualified US accounts only. 


FOREIGN ORDERS 


Shipping charges for foreign and Canadian 
orders are based on the shipping carrier's 
standard rate. Since rates vary between 
carriers, please call or write for the exact 
cost. Foreign orders (except Canada), please 


include an additional $10 for customs form 
preparation. All payments must be made 
with US funds drawn on a US bank. Please 
include your telephone number when order- 
ing by mail. Due to government regulations, 
we cannot ship to all countries. 


VOLUME ORDERS 


Call for special pricing. 


SOUND ADVICE 


Our knowledgeable technical staff can assist 
in comparing products, answer technical 
questions and send you detailed product 
information tailored to your needs. 


30-DAY GUARANTEE 


Most of our products come with a 30-day 
documentation evaluation period or 30-day 
return guarantee. Please note that some 
manuafacturers restrict us from offering 
guarantees on their products. Call for more 
information. 


CALL TOLL FREE 
800-336-1166 
800-225-1166 
216-877-3781 


CUSTOMER SERVICE 216-877-1110 


Hours: Weekdays 8:30 AM to 8:00 PM EST. 
Ohio customers please add 5% state sales tax. 
Call / write for FREE comprehensive price guide 
Prices are subject to change without notice. 





Plink-86 Plus Over/ay Linker... ...... 495 
Prigkésr: Moke Gtlitt see i ce $25 
Pmate Macro Text Editor. oe a 195 
Pres LO UNG ae es ela: ee as te 295 
Ptel Binary File Transfer Program ....... 195 
polytron products 
PolyBoost 7he Software Accelerator. .... 80 
Polytron C Beautifier ............ 49 
Poivtcon-G:Cibrary toi BS eS 99 
Polytron PowerCom Communications .... 179 
PolyLibrarian Library Manager... ..... 99 
PolyLibrarian Il Library Manager... .... 149 
PolyMake UW/X-like Make Facility ...... 99 
PolyWindows Products A// Varieties... . CALL 
PolyXREF Complete Cross Ref Utility ..... 219 
PolyXREF One /anguage only ......... 129 
PVCS Version Control System ......... 395 
softcraft products 
Btrieve /SAM Mor with No Royalties ..... 245 
Ravine Query ility eo oa 8 OS 245 
Rtrieve Report Option.......... 145 
Btrieve/N for Networks... 2... ee eee 595 
MRO Te, kd ee oa a ve 595 
Rtrieve/N Report Option ........ 345 
text editors 
Brief from Solution Systems. ......... 195 
Epsilon fmacs-like editor by Lugaru...... 195 
KEDIT by Mansfield Software. ........ 125 
PC/VI dy Custom Software Systems. ..... 149 
SPF/PC by Command Technology Corp .... 195 
Wemit by Compoview. oon se oo ee 150 
Vedit Plus by CompuView........... 185 
turbo pascal utilities 
ALICE /nterpreter by Software Channels... . 95 
Btrieve /SAM File Mor. ..... See SoftCraft 245 
FirsTime for Turbo by Spruce Tech ..... 75 
Flash-up Windows dy Software Bottling . . 90 
HELP / Control by: OS 5 ee 125 
On-line Help from Opt-Tech Data Proc. ... 149 
Report Builder by Roya/ American... . New 75 
Screen Sculptor by Software Bottling. ... 125 
System Builder by Roya/ American ... New 100 
TDebugPLUS by urboPower Software... . 60 
Turbo EXTENDER by TurboPower Software . . 85 
Turbo Professional by Sunny Hi// .. 2... 70 
FarboHALD from IMSL 2k a 99 
TurboPower Utilities by JurboPower..... 95 
TurboRef by Gracon Services ......... 50 
TurboSmith Visua/ Age Debugger. ...... 58 
TurboWINDOW ty MetaGraphics ... 2... 80 
wendin products 
Operating System Toolbox ......... 99 
PCUNIX Operating system. .......... 99 
PCVMS Similar to VAX VMS ......... 99 
XTC 7Jext editor with Pascal source. ..... 99 


xenix system v 
XENIX System V Complete System 


DF Os NE seo elem: LER a ee 1295 
XENIX Development System ...... 595 
XENIX Operating Sys Specify XT/AT... 595 
XENIX Text Processing Package.... 195 
xenix products 
Btrieve /SAM File Mor by SoftCraft...... 595 
CASAM Oy Walormix: ok. ws SSS oS es 319 
c-tree /SAM Mor w Source by FairCom.... 395 
dbVISTA Single or Multi User by Raima... . CALL 
dBx with Library Source by Desktop Al .... 550 
DOSIX User Version by Data Basics... . New 199 
DOSIX Console Version by Data Basics . . New 399 
Rnidranix: By MierMin. C06 So ee eins 5 995 
Informix4GL by Informix .. 2... ew 1500 
InformixSQL by /nformix ........... 995 
Le OIE. So ois oe a 595 
Micro Focus Level Il Compact COBOL .. 1000 
FOIRse es i  i R Sal ew ae 400 
Level I! ANIMATOR............ 600 


Microsoft Languages 


Pe Priah sie aca oe! wk See Microsoft Section CALL 
Networks for XENIX ty SCO... ...... 595 
PANEL Screen Designer by Roundhill..... 625 
REAL-TOOLS @inary Version by PCT ...WNew 149 

Library Source Version. ........ New 399 
Complete Source Version. ....... New 499 
RM/COBOL by Ayan-McFarland........ 1250 
RM/FORTRAN by Ryan-McFarland...... 750 
SCO Professional Lotus clone by SCO.... %795 


319 


115 
155 
115 


69 
45 
78 
139 
78 
115 
78 
CALL 
179 
109 
325 


194 
194 
114 
464 
464 
274 


CALL 
159 
105 
tzg 
139 
109 
139 


68 
194 


79 
109 
109 

CALL 

94 

CALL 

49 

68 

49 


84 
45 
45 
65 


84 
84 
79 
79 


999 
499 
499 
149 


464 
285 
329 
CALL 
499 
CALL 
CALL 
795 
1249 
795 
449 
795 
319 
479 


CALL 
495 
549 

CALL 

CALL 

CALL 
949 
549 
595 





programmer's conneclion 


instant, and read or write files without 
delay. Unlike alternatives, the 
SemiDisk offers up to 8 megabytes of 
instant-access storage while leaving 
your computer's main memory free 
for what it does best - computing! 
_ KEEP A GRIP ON DATA 
Go ahead, turn off your computer. 
Take a vacation. With the battery 
backup option, your valuable data will 
be there in the morning even if you 
aren't. You ll sleep better knowing not 


even a 5 hour blackout will sabotage 
your files. 





you ve proven that oer ands 
computer is a productive tool. But if 
you haven't teamed up with a 
SemiDisk you have heights yet to 
IT’S NO MERE RAMDISK 
SemiDisk has been leading the way for 
Disk Emulators since their inception. 
If you've seen RAMdisks you know 
what it’s like to load programs in an 


MIDIS. 


SemiDisk Systems, Inc. | , _ i: : 
P.O. Box GG, Beaverton, Oregon 97 
03-626-3104 









































5510 for CBBS/NW, and 503-649-8327 for CBBS/Aloha, all SemiDisk equipped yed computer bulletin boards, (300/1200/2400 baud) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 


NEW LOWER SEMIDISK 
PRICES THAT WON’T 
SNOW YOU UNDER 

512K 2Mbyte 
IBM PC, XT, AT $495 $995 
Epson QX-10 $595 $995 
S-100,SemiDisk II $799 $1295 
S-100,SemiDiskI $595 es 
TRS-80 II, 12, 16 $695 $1295 
Battery 
Backup Unit $130 $130 


Software drivers available for CP/M 80, 
MS-DOS, ZDOS, TurboDOS, and VALDOCS 2. 
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Listing Three (Listing continued, text begins on page 40.) 


278 
279 
280 


281 
282 
283 
284 
285 
286 
287 


288 
289 
290 
291 
292 


293 
294 
295 
296 
297 
298 


299 
300 
301 
302 
303 
304 


305 
306 
307 


f 


CreatePort 
move 
move.1 
callsys 


move.b 
clr) 
bset.1 
bset.1 
move 
move.1 
callsys 


move.1 
move.1 
move.1 
move.1] 
callsys 


move.l 
move .b 
move.b 
move.b 
move.b 
move.l 


cmp. 1 
beq 
move.1 
move.1 
callsys 
rts 


Port2 lea 
NEWLIST 
rts 


#-1,D0 :no preference for signal bit 
AbsExecBase, A6 

AllocSignal sallocate a signal bit for port 
DO, D7 ssave signal bit 

D1 

#16,D1 7 (clear) 

#0,D1 ; (public) requirements 

#MP SIZE, DO snumber of bytes needed 
AbsExecBase, A6 

AllocMem smemory for message port structure 
DO, (A3) zsave pointer to message port 
DO, A4 

#0,D0 

AbsExecBase,A6 

FindTask ;initialize task control block 


A5, LN_NAME (A4) ;port's name 

#0, LN PRI (A4) sports priority 

#NT MSGPORT, IN TYPE(AO) ;type of port 

#PA SIGNAL, MP FLAGS (AO) 

D7,MP SIGBIT (A4) zsignal bit 

DO,MP SIGTASK(A4) ;address of task ctrl block 


#0,A5 zis name specified? 
Port2 zhead of list of ports 
A4,Al 

AbsExecBase,A6 

AddPort z;add this port to list 


MP MSGLIST (A4) , AO 
AO zinitialize a new list of ports 


Create a standard IO request structure ---------------- 


;NOTE - this subroutine is an assembly language version of the C source 
zcode provided in the Amiga ROM kernel manual. It needs error trapping 
zafter the system calls to be complete. 

;Load pointer to message port in A3. 

;Load address of pointer for standard IO structure in AS. 


CreateStdIO 
308 ely <1 D1 
309 bset.1 #16,D1 
310 bset.1 #0,D1 
311 move.1 #IOSTD SIZE, DO 
312 move.1 _AbsExecBase, A6 
313 callsys AllocMem ;space for IO request block 
314 move.1 DO, (A5) zsave the pointer 
315 move.1 DO, AO 
316 move.b #NT_MESSAGE,LN TYPE(A0Q) ;type of structure 
317 move.b #0, LN PRI (AO) ;priority 
318 move.1 A3,MN REPLYPORT (AO) address of message port 
319 rts 
i------—-- Subroutine to open the console device -------------------- 
;NOTE - this subroutine is an assembly language version of the C source 
;code provided in the Amiga ROM kernel manual. 
;Load pointer to WriteMsg in A3. 
;Load pointer to ReadMsg in AS. 
;Load pointer to Window in A4. 

OpenConsole 
320 move.1 A4,10 DATA (A3) ;pointer to window record 
321 move #nw_SIZE, IO LENGTH (A3) 7size of window record 
322 lea ConDev,AO ;name of device 
323 move.1 #0,D0 
324 move.l A3,Al 
325 move.1 #0,D1 
326 move. 1 _AbsExecBase, A6 
327 callsys OpenDevice 
328 move.1 IO_ DEVICE (A3), IO DEVICE (A5) ;save device pointers 
329 move.1 IO DEVICE (A3) , DevAdd 
330 move.1 IO UNIT (A3), IO UNIT (A5) 
ao. rts 
;-—----- Subroutine to queue up a read request to the console -----~----- 
z;NOTE — this subroutine is an assembly language version of the C source 
;code provided in the Amiga ROM kernel manual. 
zLoad pointer to read message in Al. 
zLoad pointer to storage space for character in A4. 

QueueRead 
332 move #CMD READ, IO COMMAND (Al) ;type of operation 
333 move.1 A4,10 DATA (Al) swhere data should be placed 
334 move.1 #1,10 LENGTH (A1) snumber of bytes to read 
335 move.l _AbsExecBase, A6 
336 callsys SendIO 
337 rts 


(continued on next page) 
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~C & PASCAL 
PROGRAMMI 


Blaise Computing provides a broad range of pro- 
gramming tools for Pascal and C programmers, 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
changing needs. Our packages are shipped com- 
plete with comprehensive manuals, sample pro- 
grams and source code. 


C TOOLS PLUS 
$175.00 


NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode sup- 
port and direct screen access; string functions; 
and DOS file handling. 


PASCAL TOOLS/TOOLS 2 
$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management; general program con- 
trol; and DOS file support. 


VIEW MANAGER 
$275.00 


Complete screen management; paint data entry 
screens; screens can be managed by your appli- 
cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 


ASYNCH MANAGER 
$175.00 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 


Turbo POWER TOOLS PLUS 
$99.95 


NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus; memory management; 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs; schedul- 
able intervention code. 


Turbo ASYNCH PLUS 
$99.95 


Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; and baud rates up to 9600. 


RUNOFF 
$49.95 


NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 
facility. Crafted in Turbo Pascal. 


EXEC 
$95.00 


Program chaining executive. Chain one pro- 
gram from another even if the programs are in 
different languages. Shared data areas can be 
specified. 


ORDER TOLL-FREE 800-227-8087! 


y\N 
pe ee 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
SS ET SIT EES TIT EE IT I 
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Is Your Program 


HALF-FAST? 


Speed it up 


An execution profiler 
for IBM PCs 
and compatibles. 


Most programs run at less than 
half the speed that they could. 
You can optimize almost any 
code, but where do you start? 


A typical program spends 
90% of its time in 10% of 
its code. The Watcher 
identifies that critical 10% 
for you, so you don't 
waste your effort on the 
wrong 90%. 


The Watcher is easy to learn 
and easy to use, and we provide 
full technical support. Watcher 
users have increased program 
performance by as much as 
300%. You can get similar 
results. 


The Watcher works with any 
non-interpretive language on 
DOS version 2 or 3. 


Turbo Pascal users: A 
special section of our 

manual is dedicated to 
you! 


only 
$59.95 


Plus $3.00 
Shipping & 
Handling. 


To order or for free information, 
call or write: 


Stony 
SOFTWARE 
Forest Road 


Wilton, New Hampshire 03086 
(603) 654-2525 
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Listing Three (Listing continued, text begins on page 40.) 


7-------- Subroutine to print a single character in a console window ---- 
;NOTE — this subroutine is an assembly language version of the C source 
;code provided in the Amiga ROM kernel manual. 

;Load pointer to write message in Al 
;Load pointer to character to be printed in A4. 


338 
339 
340 
341 
342 
343 


KRRKEKKKKKKKKKEKKKKKKEKKKKKKKEEKE 


344 
345 
346 
347 
348 
349 
350 
351 
352 
353 


354 


BS 
356 
357 
358 


359 
360 
361 


362 
363 
364 


365 
366 
367 


368 
369 
370 


Sh1 
372 
ofs 


374 
375 
376 


377 
378 
379 
380 
381 


382 
383 
384 


385 
386 
387 


388 
389 
390 


391 
392 
393 


394 
395 
396 
397 
398 
399 
400 
401 


ConPut Char 


DevAdd 
TheScreen 
TheWindow 
IntBase 
IntName 
WindowPtr 


move 
move.l 
move.1l 
move.1 
callsys 
rts 


ds.b 
ds.b 


ds.l 


WindowTitle 


ScreenPtr 


ds.l 


ScreenTitle 


ConDev 


#CMD WRITE, IO COMMAND (Al) ;type of operation 


A4,1I0 DATA(A1) 
#1,10 LENGTH (A1) 


zwhere data will come from 
znumber of bytes to output 


_AbsExecBase, A6é 


DoIO 


Data Structures KEKKKKKKEKKEKKKEKKEKKEEKKEKEKKEKKKKEKE 


ds.l 
ns_SIZEOF 
nw SIZE 
ds.l 
dc.b 

1 

dce.b 

1 

dc.b 
dc.b 


1 

1 
‘intuition.library',0O 
‘Text Window',0 


‘Dr. Dobbs Journal',0O 
‘console.device',0,0 


;NOTE - extra 0 included to keep addresses even 


ProjMenu 


Pro jName 
Projl 

ProjTextl 
ProjiIteml 


Proj2 
ProjText2 
ProjiItem2 


Proj3 
ProjText3 
ProjiItem3 


Pro j4 
ProjText4 
Projitem4 


Pro j5 
ProjText5 
ProjItems 


Proj6 
ProjText6 
ProjItem6é 


Proj7 
ProjText7 
Projitem7 


EditMenu 
EditName 
Editl 
EditTextl 
EditItem1 


Edit2 
EditText2 
EditItem2 


Edit3 
EditText3 
EditItem3 


Edit4 
EditText4 
EditItem4 


Eaits 
EditText5 
EditItem5 


ReadPort 
ReadMsg 
ReadName 
WritePort 
WriteMsg 
IntSigBit 
ConSigBit 
letter 


ds.b 
dc.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
dc.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.b 
ds.b 


ds.l 


dc.b 
ds.l 
ds.l 
ds.b 
ds.b 


mu_SIZEOF 


*Project',0O 


dc.b 
it_ SIZEOF 
mi SIZEOF 


dc.b 
it_ SIZEOF 
mi SIZEOF 


dc.b 
it_SIZEOF 
mi SIZEOF 


dc.b 
it_SIZEOF 
mi SIZEOF 


dc.b 
it_SIZEOF 
mi SIZEOF 


dc.b 
it_SIZEOF 
mi SIZEOF 


dc.b 
it_ SIZEOF 
mi SIZEOF 


mu SIZEOF 


'New', 0 


‘Open’, 0,0 


‘Save’, 0,0 


‘Save As',0 


‘Print *,0 


‘Print As',0,0 


‘Quit',0,0 


'Edit',0,0 


dc.b 
it_SIZEOF 
mi SIZEOF 


dc.b 
it_SIZEOF 
mi SIZEOF 


ac. 
it _SIZEOF 
mi SIZEOF 


dc.b 
it_ SIZEOF 
mi SIZEOF 


dc.b 
it _SIZEOF 
mi SIZEOF 


1 
ds.l 


‘Undo', 0,0 


“‘Cut*,; 0 


‘Copy’, 0,0 


*Paste',0 


'Erase',0O 


1 


*Read', 0,0 


End Listings 
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POWER TOOLS for 
| SYSTEM BUILDERS™ 


800-543-6277 


Ask for Operator 2053 
California: 800-368-7600 





TSF is owned and operated 
by programmers, so we 
understand your needs. We 
believe and practiice integrity 
in all business dealings. We 
advertise real prices and offer 
our best price to all customers. 
We provide prompt delivery of 
current product versions. 


We accept checks, Visa, 
MasterCard and American 
Express. We charge your card 
only when we ship and do not 
add a surcharge. Free UPS 
delivery on orders over $100. 
We allow return privileges on 
most products. Give us a 


try! 
TSF 


649 Mission Street 
San Francisco, CA 94105 
(415) 957-0111 


Microsoft Quick Basic (List $99) $65 
Summit Better Basic (List$199) $160 
MicroHelp Mach 2 (List $75) $60 
MicroHelp Stay-Res (List $95) $75 
Sterling Castle Tools (List $99) $80 


Datalight C (List $99) $75 
Microsoft C w/Codeview ($450) $285 
Lattice C (List $500) $289 
Mark Williams C (List $500) $319 
Rational Instant C $375 
Gimple C-Terp (List $300) $224 
Run/C Professional (List $250) $160 
Run/C Interpreter (List $120) $85 
Gimpel PC Lint (List $139) $103 
Blaise View Manager (List $275) $197 
Lattice Curses (List $125) $90 
Essentails Graphics (List $250) $200 
Blaise C Tools+ (List $175) $125 
Essentials Utility (List $185) $130 
Greenleaf Functions (List$185) $130 
Greenleaf Comm (List $185) $130 


Blaise Async Manager ($175) $125 


expands Basic's horizons with window 
management, input editing, array 
sorting and print formatting. It also 
provides MSDOS/BIOS function calls 
and allows you to break the 64K data 
barrier. Written in assembler for high 
performance. For Bascom, Quick 
Basic , BASICA and GWBASIC. (List 
$75) 


Microsoft Pascal (List $300) $219 
Blaise View Manger (List$275) $197 
Blaise Async Manager ($175) $125 
Blaise Pascal Tools+ (List$125) $125 


Turbo Pascal BCD & 8087 ($100) $80 
Software Channels Alice ($95) $85 
Kydor Symbolic Debugger ($49) $40 
Blaise Turbo Async ($100) $80 
Blaise Power Tools ($100) $80 
Borland Turbo Editor (List $70) $50 


Periscope | (List $295) $225 
Periscope II (List $145) $108 
Phoenix Plink+ (List $495) $325 
Phoenix Pfinish (List $395) $275 
Phoenix Pfix+ (List $395) $250 
Polytron Make (List $99) $80 


Quilt SRMS + Qmake (List $199) $165 
Seidl SVM + SMK (List $379) $330 
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evaluates 
your source code to locate insiduous C 
bugs like "=" instead of "==" in boolean 
expressions and mismatched function 
parameters. Evaluates multiple source 
files to validate use of all public 
functions and variables. Compatible 
with all popular compilers. 30 day trial 
period (15% re-stock fee). (List $139) 


speeds debugging with multiple 
windows, symbolic memory address- 
ing, and sophisticated trace and 
breakpoints. Includes an NMI break 
switch so you can interrupt programs 
at any point without pre-setting break 
points — ends guesswork for hard-to- 
locate crashes. (List $129) 


provides symbolic 
debugging for Turbo Pascal programs. 
Includes trace, breakpoint, memory 
display and memory modification. 
Runs from within Turbo's environment, 
so you don't loose any Turbo features. 
Written in assembler for speedy 
operation and low memory 
requirements. (List $49) 


provides back- 
ground file transfers and e-mail for your 
PC. Incoming and outgoing calls are 
processed automatically while you con- 
tinue with your normal work. Outgoing 
calls can be scheduled to automatical- 
ly take advantage of late night phone 
rates and to concentrate messages in 
a multi-node RamNet network. 


SAPIENS 
STAR SAPPHIRE 


Common LISP with Class 





A common LISP Compiler 
for the IBM PC ™ 


* 710 functions 

* C source code for Libraries 

* Lexical and dynamic scoping 
* Compiles to C 


* Unlimited multi-dimensional 
arrays 


* Object-oriented programming 
(flavors) 

* Numerical functions (bignums 
up to 128 digits) 

* 64-bit virtual memory 
architecture 


* 8 megabytes virtual memory 
workspace 


* LISP to C translator 
* 


The Compiler is designed for 
use in developing programs 
directly on the PC and for port- 
ing applications written on 


larger machines down to the 
PC market. 


* 


SYSTEM REQUIREMENTS: 
The system requires a DOS-based C 
compiler which supports huge model. 
It needs 640K RAM and a hard disk. 
Programs developed with Star Sap- 
phire will run on a system with 256K 
of RAM. A hard disk is recommended 
for large applications. The virtual 
memory manager uses 16-128 kilo- 
bytes of RAM at the programmer’s 
discretion. 


+ + + $495.00 + + 


Sapiens Software Corporation 
236 Mora St. Santa Cruz, CA 95060 
408/458-1990 
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Listing One (text in December) 


/* A32000.C - Series 32000 assembler 
850903 rr fix addr ext, scaled index, acp, cxp 0.10 
850902 rr add scaled index logic 0.09 
850828 rr fix enter, setcfg, lpr/spr, index 0.08 
850809 rr add equate logic 0.07 
850730 rr add binary search in lookup 0.06 
850729 rr symbol table mods, reglist 0.05 


Still need: 
--- register names for lpr/spr 
--- linkable modules 


Note: While 68000 is hilo (high-bytes at lower memory 
addresses), 32000 is lohi (low-bytes at lower memory 
addresses, like the Z80). 


This is a 3-pass assembler; 3 passes to make 
sure that relative branches are computed correctly. */ 


#define EOF -1 


#define SYMSIZ 1024 /* symbol table size */ 

char inpbuf[ 256 ];7 /* input buffer */ 

int inpcent, inpptr; /* input counter, pointer */ 
char word buffer[ 128 ]; /* buff for current word */ 


char ambig buffer[ 128 ]; /* ambiguous refs here */ 


char listline[ 81 ]; /* line of listing output */ 
int listop, listcp; /* pointers for list output */ 
int paren = 0; /* used in gchar() */ 

int brack = 0; 

int quote = 0; 

int iwparen = 0; /* used in inword() */ 

int errors = 0; /* count of errors */ 

char *word; /* pointer to current word */ 
char *ambig[ 10 ]; /* filled in by match */ 

int ambcnt = 0; /* count of pointers in ambig[] */ 
int pass; /* abe =.1,2°0r'3 */ 


long int asmadr, codadr; /* assembly addr, code addr */ 
char filename[ 30 ]; 


int fasm, fobj; /* file numbers */ 
char objbuf[ 64 ]; /* object byte buffer */ 
long int objadr; /* addr of first byte of buf */ 
int objcnt = 0; /* count of bytes in buffer */ 
struct { /* Symbol table */ 

char *snam; /* symbol name */ 

long int sval; /* value */ 


} symbol[{ SYMSIZ ]; 


int symcnt; /* count of symbols */ 
char hexchr[ 17 ] = “"0123456789abcdef"; 
/* --- 32000 opcodes --- */ 


/* Note: Shortest form of opcode must be listed first. */ 


#define MAXOP 149 


/* the opcode binary value should be a string of bits, 
e.g. 0111xxxxx000b the opcode opopt character is used 
to specify special operands, etc. */ 


/* opopts used here for the 32000 are: 


blank nothing special 
a gen 

b gen short 

c gen gen 

d 00000 short 

2 gen gen reg 

f reglist save/enter 
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reglist restore/exit 

00000 gen (sfsr) 

inss/exts 

movs/skps/cmps 

setcfg 

procreg, gen for lpr/spr 

index (operand order) 

ret/rett - postbyte 

movm 

cxp (disp after instruction) */ 


copa rwuUre Da 


struct { 


opcode name */ 

operand count, negative if PC-rel */ 
opcode binary value */ 

opcode opopt char */ 


char *onam; /* 
int ocnt; 7* 
char *obin; /* 
char oopt; f= 


} opcode[ MAXOP ] = { 

/* Format 1 ops (16) */ 
“psr*,, -1, nOzn", ' re 
"ret", Ly Fi 2h", oA, 
“Ox, iy eZ2n";, ici at 
"FAO", 4 Sse". nit 9 Bs 
"rett", 1, "42h", 'n! 
“yeti”, 0, el ee 4 ty 
"save", io “G2n", 25) ale 
"restore", 1, wlan" s gS", 
“enter", Ze "S27h", aga 
"exit". a eS SS2n" fs aor 
"nop", 0, "Oa2h", ' ne 
ewes *,, 0, "Ob2h", ' “ 
"dia", 0, "Oc2h", ‘ ae 
"flag", 0, "Od2h", ‘ ee 
"sve", 0, "Oe2h", i] a 
ae gl 0, Ge gs Ny 

/* Conditional branches (15) */ 
"“beq", -1, "Sah*, 'p! ; 
“bne", -1, “ian”, LD) © Yas . 
“pcs", -l, ean, ll ous ; 
Face’, -1, “3an", rH! aA 
“phi*, -1, "4ah", se 3 oe . 
‘pis, -1, San’; th" - 
"bot; -1, au 6ah", *p* - 
"ble", -l, eval", ‘ph! x 
*bis*, -1, "Sah", 'b! r 
~oLe*, -l, u Yah", ty! . 
gl NBs cal -1, "Oaah", ad - 
*Dhas”, -l, "“Obah", a oe 
PBre" -l, "Ocah", 'p? = 
“bge", -1, "“Odah", 'p* i 
"pr", -1, "Oeah", 'p! 3 

/* Format 2 ops (7) */ 


/* 


“addq?", 2,  "“XXXXxXxxxx00011iib", ‘et, 
“cmpq?", 2, “X&XXxXxXxxxx00111iib", ‘et, 
“ence, 2, “XXXxxxxxx01011iib", '1', 
“lpr2", 2, "“XXXXxXxXxxxX11011iib", ary 
"“seq?", 1,  "xxxxx000001111iib", ‘a’, 
"sne2?", 1, > MRRxRROGOTOLILITIO* (-a*, 
"scs?", 1,  "xxxxx001001111iib", ‘a’, 
gh olay Age 1, “xxxxx001101111iib", ‘a’, 
*shi2*, 1,  "xxxxx010001111iib", ‘a’, 
"sls?" 1, “xxxxx010101111iib", tag 
“sgt2", 1,  “xxxxx0110011111ib", ‘a', 
“"sle2?", 1, MOT TOT at, 
"Sts?" 1, “xxxxx100001111iib", ‘a’, 
"“sfc2", 1,  “xxxxx100101111iib", ‘a’, 
"slo2", cn "xxxxXx101001111iib", <r 
“shs?", 1,  “xxxxxl01101111iib", ‘a’ 
“slt2", cH “xxxxXx110001111iib", er 8y 
"sge2", Ly Seen 10201001415, © a" 
"st2™ 1, “xxxxx1110011111ib", ‘a° 
Wof2™ 13) @emxxx111101111 116"; ‘a’ 


The acb instruction 3rd operand is a relative jump */ 


(continued on page 85) 
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Megamax C 


for the 


Atari ST 


"Don't even think about 
another C compiler” 3" «, 


and Introducing: 


Mac-to-GS C « 
Mac-to-GS Pascal 


Macintosh to Apple IIGS cross compilers. 
The fastest development systems for the IIGS. 


Megamax 


Development Systems 


Box 851521 ¢ Richardson, TX 75085 
(214) 987-4931 ¢ Telex 5106018356 


Circle no. 352 on reader service card. 












Programmers: 


Turbo-charge Your 
Productivity with PL/PC 


(Programming Language for the PC) 







3-5 times more productive than using 
conventional languages. 
Full APL array operators (including matrix 
inversion and FFT). 

Integrated Programming Environment. 
Modern control and subroutine structure. 
Local subroutines and variables. 
More than 130 built-in mathematical and 
graphics subroutines. 

One conceptual numeric type (including 
complex numbers). 

Large memory model. 
Source-level debugging. 
Auto-paragraphing. 

Built-in full-screen text and data editor. 
Virtual file variable of up to disk capacity. 
























For only $89 Requirements: 

8087 version $159 IBM PC or compatibles 
Demo version (includes DOS 2.11 or higher 
reference manual) $16 360K bytes memory 










CREATIVE COMPUTER SOFTWARE 
117 York St., Sydney, NSW 2000, Australia. 
Phone: (02) 261 1611 Fax: (02) 264 7161 






Circle no. 348 on reader service card. 
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CLIPPER. THE dBASE COMPILER. 


A WINNING PERFORMANCE EVERY TIME. 


Nantucket ™ 


IE Vel abled <i am Ores u ole) a-taleyel 

5995 South Sepulveda Boulevard 
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(213) 390-7923 

Outside California call toll-free: 
1-800-251-8438 


dBase, dBase III, and dBase III Plus are trademarks 
of Ashton-Tate, Inc. 


IBM PC, XT, AT, and 3270 are tradematks 
of International Business Machines Corporation. 


Clipper and Nantucket are trademarks 
el aa Ee velatiel <aat @lelu stele lates se 
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LOOK FOR CLIPPER™ | 


Autumn 8 


IT MAKES NETWORKING EASY. 
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Listing One (Listing continued) 


/* 


/* 


/* 


/* 


/* 


/* 


“acb?", -3, “XXXXXXXXX10011iib", ‘e', 
“movq?", 2; “XXXXXXXXX10111iib", ‘e*, 
Format 3 instructions (7) */ 

roapda", 1, "xxxxx00001111111b", ‘a5 
"Ei cosr?®, Ly "xxxxx001011111iib", ‘a*, 
"jump", unt "xxxxx01001111111b", "a" 
“bispsr?", ls "xxxxx011011111iib", i 
“adjsp?", i "xxxxx101011111iib", a. 
yoke > ta is "xxxxx11001111111b", "a*, 
“case?", Ly "xxXxXxX111011111iib", ay 


Format 11 ops (16) - 
moved here so wildcards won't interfere */ 


~"a0Gr"; 2s "XXXXXXXXXX00000110111110b", 
“aadi”, Le "XXXXXXXXXX00000010111110b", 
“evi” ; Ze "XXXXXXXXXX00010110111110b", 
“movl", 2, “XXXXXXXXXX00010010111110b", 
*compt", 24 "XXXXXXXXXX00100110111110b", 
"empl", 2, "XXXXXXXXXX00100010111110b", 
*"subt", Zi "XXXXXXXXXX01000110111110b", 
"4ubi*, Ry “XXXXXXXXXX01000010111110b", 
“negf", 2; “XXXXXXXXXX01010110111110b", 
“negl", 2; "XXXXXXXXXX01010010111110b", 
“divi, a; "XXXXXXXXXX10000110111110b", 
"divi", 2s “XXXXXXXXXX10000010111110b", 
“mul t*, iy “XXXXXXXXXX11000110111110b", 
Tau; Ze "XXXXXXXXXX11000010111110b", 
“absf", 2; “XXXXXXXXXX11010110111110b", 
“absl", Zs “XXXXXXXXXX11010010111110b", 


Format 4 instructions (12) */ 


“add?", Ze "XXXXXXXXXxX0000iib", Ee", 
"cmp?" , 2, "XXXXXXXXXX0001iib", "es 
SLC T™, 2s "XXXXXXXXXxX0010iib", ‘ery 
Saddc?", 25 "XXXXXXXXXX0100iib", oe", 
"mov?", Zz) "XXXXXXXXXX0101iib", “Ss? ; 
"Or?’, 2, “XXXXXXXXXxX0110iib", ‘o", 
*sub2", 2, “XXXXXXXXXX1000iib", vs age 
~aqar”, he "XXXXXXXXXX100111b", ery 
"lxpd", 2, "XXXXXXXXXX100111b", "ce", 
“and?2", as "XXXXXXXXXX10101iib", ce, 
“subc?", Ze "XXXXXXXXXX1100iib", “i og 
PCbLL2”, 2; "XXXXXXXXXX1101iib", EE 
euor?", 2, “XXXXXXXXXX1110iib", *e), 


Format 5 instructions (4) */ 


“movst", ee “00000xxx1000001i00001110b", 
“movs?", i; “00000xxx0000001100001110b", 
“cmpst", a is "00000xxx1000011i100001110b", 
“cmps?", ie "00000xxx0000011100001110b", 
“skpst", i; "00000xxx1000111100001110b", 
“skps?", » “00000xxx0000111100001110b", 
“setcfg", ky "00000xxxx000101100001110b", 
Format 6 ops (14) */ 

"It i"; ee "XXXXXXXxXXxX00001101001110b", 
"“ash?", 2; "XXXXXXXxXXxX00011101001110b", 
Sit 2", 25 "XXXXXXXXXxX00101101001110b", 
"@5iti7%. 2, "XXXXXXXXXX0011i1i101001110b", 
"lah?" 2, “XXXXXXXXXX01011101001110b", 
"ebit2", y “XXXXXXXXXX01101101001110b", 
“sbhiti2?*, Ze “XXXXXXXXXX0111i1101001110b", 
“neg?", ye "XXXXXXXXXX10001101001110b", 
“net 27>, 2, "XXXXXXXXXX10011i101001110b", 
“subp?", a; “XXXXXXXXXX10111101001110b", 
“abs?", 2, “XXXXXXXXXX11001101001110b", 
"com?" , 23 “XXXXXXXXXX11011101001110b", 
“ibit?*, 2, "XXXXXXXXXXK11101101001110b", 
“addp?", zy “XXXXXXXXXX11111101001110b", 
Format 7 ops (15) */ 

“movm?", <a "xXXXxXxXxXxXxXx00001111001110b", 
“cmpm?", Ze “xxxxxxxxxxX00011111001110b", 
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"3 
"ey 
“oh, 
“er, 
fot, 
oF tah 
"Oty 
"c*. 


Pot 
aS 
iS ig 
iF 
ro 
a © ine 
gta 


ste a 
a 
x 
si ie 
ote he 
ce tg 


2 oa 


‘ay 
es » 
‘of, 
a 
te’, 
‘ers 
fh 
ae 
aoe 
a. oe 
ne 
oy 
‘Se! , 
‘ct, 


‘o* 
to", 


/* 


/* 


/* 


“inss?", 4, "xxXXXXXXXXX0010i1111001110b", 
"exts?", 4, "xXXXXXXXXXX00111111001110b", 
“movxbw?", 25 "XxXXXXXXXXX01001111001110b", 
“movzbw?", 24 “XxXXxXXXXXXX01011111001110b", 
“movz?d", ve "XXXXXXXXXX01101111001110b", 
“movx?d", iy “XXXXXXXXXX01111111001110b", 
“mul?", 2 “xXxXxXXXXXXXX1000i1i111001110b", 
"“mei2", Z, “xXXXXXXXXXX10011111001110b", 
"dei 2", 2 "XXXXXXXXXX10111111001110b", 
*“quo?", 25 “XXXXXXXXXX11001111001110b", 
“rem?", 2; "XXXXXXXXXX1101i1i111001110b", 
“mod?” , 2; “XXXXXXXXXX11101111001110b", 
“aiy?", Rs "XXXXXXXXXX11111i111001110b", 
Format 8 ops (8) */ 

“ext?", 4, “XXXXXXXXXXXXX01i100101110b", 
"cvEDp";, ce “XXXXXXXXXXXXX01101101110b", 
"inst, 4, “XXXXXXXXXXXXX01i10101110b", 
“check?", xs “XXXXXXXXXXXXX0ii11101110b", 
"“index?", 3 "XXXXXXXXXXXXX11i100101110b", 
Sefer; 2s “XXXXXXXXXX00011101101110b", 
“movsu?", 2; “XXXXXXXXXX00111110101110b", 
“movus?", pam “XXXXXXXXXX01111110101110b", 
Format 9 ops (12) */ 

“movlf", a “XXXXXXXXXX01011100111110b", 
“movfl", as "XXXXXXXXXX01111100111110b", 
“mov?f", a. "XXXXXXXXXX0001i1i100111110b", 
“mov2?1", 2; "XXXXXXXXXX00001i100111110b", 
"aELge, : "xxxxx0000000111100111110b", 
"“sfsr“, Ps "00000xxxxx11011100111110b", 
"roundf?", 2 "XXXXXXXXXX10011100111110b", 
“round1?", 2; "XXXXXXXXXX1000i1i100111110b", 
"truncr?*, Zs "XXXXXXXXXX10111100111110b", 
“truncl 2", “s “XXXXXXXXXX10101100111110b", 
"floorf?", ve "XXXXXXXXXX11111i100111110b", 
*LLOOTE?" , Pa "XXXXXXXXXX1110ii100111110b", 


Format 14 instructions (4) */ 


“rdval", i “XXXXXXXXX000001100011110b", 
“wrval", L; "XXXXXXXXX000011100011110b", 
‘amr, 2 "XXXXXXXXX000101100011110b", 
"ene, a, “XXXXXXXXX000111100011110b", 


/* Address Mode Table */ 


#define MAXAM 42 


struct { 


char *mstr; /* mode match string */ 


char *gstr; /* output string to insert (gen) */ 
int ment; /* count of ambigs to be put into 


extension bytes */ 
char mopt; /* mode option */ 


} admode[ MAXAM ] = { 


/* 


/* 


Scaled index modes */ 


Mar Qeey PbO", on eS 
“*(r2te) "AT 1L01", ry "93 
We(rtsd)™, -- Srsries iat 
© (ePog) "MESA, Vite 


Simple register modes */ 


a} 
ge Ba? 
ge 
a Pe 
om, 
ters 
he 


a A 


eer 
ft Bee 
Teak, 
ers 
‘a’, 
Re 
Ha heat 
nt Bae 
ch =e 
‘et, 
fie 
ret 


obs? 
ra? , 
"e* 5 
tat 


a = * Le “00000", 0, aes /* main registers */ 
"*1". "00001", Gs ‘ ne 
ice gy "00010", 0, ‘ Ms 
it "OUOkL 5 ib ‘ . 
"rs", "00100", 0, ] sal 
a oak "00101", 0, ‘ ae 
ne scar “80170", 0, ! .. 
veh og 3 it "00111", 0, ] . 
nod oi "00000", 0, Wied /* floating point */ 
od of! Mat "00001", 0, ' “' 
mn ag "00010", 0, t ot 





(continued on next page) 
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PROGRAMMERS 
On-Line HELP! Function Library 


HELP! is an on-line utility library that gives your software instant, 
context—sensitive, pop—up HELP! windows at the touch of a key. Link your 
C code with the HELP! library, tell HELP! which window is current, and HELP! 
does the rest — fast. HELP! writes directly to video memory with no flicker 
or snow. 


HELP! Runs on PCs and compatibles, B+W or CGA. Source code is 
available. 


HELP! Composer 

Compose your HELP! windows interactively. Control HELP! window text, size. 
colors, position, borders, titles. The HELP! Composer runs as a standalone 
utility or link it along with your programs to watch each HELP! window 
take form against the backdrop of your own screen designs. The HELP! 
Composer builds an ASCII text file to describe all the HELP! windows for 
each application. 


Complete Windows and Pop-Down Menu Library | 
A bonus: Use the window and pop—down menu functions from the HELP! 
library in your own programs. This is a complete C window package. 
Open and close windows, fill windows with text, scroll, select with a cursor 
bar, promote a window from the background, move a window. 


Window Text Editor 
Use the full—featured, window—oriented HELP! Text Editor to collect text 
data into your application. Open a window and call the editor. 


HELP! links with programs compiled by most MS—DOS C compilers: Aztec, 
CI—C86, Datalight. DeSmet, Eco—C88, High C, Lattice, Lets C, Microsoft, 
Whitesmiths, Wizard. Most memory models are supported. The HELP! 
distribution package includes libraries, a C demo program, and a 
complete Programmer's Manual. 


HELP!: $49. HELP! with Source Code: $149. Demo diskette: $10, deducted 
from your order. Specify compiler. MasterCard and VISA are accepted. (FL 
residents add 5% sales tax.) 


C SOFTWARE TOOLSET 
2983 Newfound Harbor Drive — Merritt Island, FL 32952 — (305) 453-0257 





program with power f 
|PC/POWER™ 
































APPLICATION DEVELOPMENT & MANAGEMENT 
INTRODUCTORY OFFER: $95 Including s & h 


Runs on all 100% PC compatibles! 


Supports applications in a variety of languages through program calls 
- NOT a code generator 
—C, PASCAL, BASIC, ASSEMBLER 
e Screen painter/editor - create language and program independent data 
entry/display screens 
— Alphanumeric, Integer, Long, Floating point fields 
¢ Build your own POP-UP menu/selection windows under your program 
control 
e Supports CGA, EGA, and monochrome display adapters 
@ Indexing function for cataloging programs and applications provides easy 
management of ALL of your PC programs and packages. 
—Integrate existing programs into an application 
e Supplies EXEC function to pass control between programs 
—Even pass data between programs in different languages 
¢ Development utility applications included as samples 
Entire package written in assembler; lightning FAST! 


COMPLETE DEVELOPMENT & RUNTIME SYSTEM ! 
$95 = NO ROYALTIES ~@ $95 
(Mass. residents add 5% sales tax) 
ORDERS OR INQUIRIES (800) 628-2828 ext. 712 


t= ORDER NOW! 


BEACON STREET SOFTWARE, INC. 
P.O. BOX 2 16 * BEACON HILL ¢ BOSTON, MA 02133 













Circle no. 267 on reader service card. 
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Listing One (Listing continued ) 









"f3", "00011", 0, Joa 
“FAY, "00100", 0, + Te 
“FS. "00101", 0, eer 
"f6", "00110", 0, ae 
ab ef al "00111", 0, ae" 


/* Indexed addressing modes */ 


e£ (rO)*, "01000", Si; shes /* indexed */ 

S4 tri) a "01001", t3 ‘ en 

“x (r2) * "01010", i, 1 er 

“* (r3) adr “O1611", a es t rhe 

“* (r4) a "01100", 2, | ey, 

“x (75) or "OTOL", iy ] a 

“* (r6) ao FOTLIG", i,  ] fe 

ee (r7)*, “01111", > ‘ o 

"*(*(fp)}", ™10000", vs er, /* frame ptr */ 
ee {9 (86) )-* 5. *1LOGOL", 2s eet, /* stack mem */ 
S¥ (% fe) }.™,). "10010", oe so ae /* static mem */ 
wget "10700", i; aa /* immediate */ 
"axe, =1010i"; AY sth /* absolute */ 
“ext (*)+*", "10110", vB a ae /* external */ 
“ton, "T0112"; 0, my /* top of stack */ 
## (in), "14.000", 5 A are /* frame mem */ 
“* (ap)? “17001, i se rae /* stack mem */ 
"x (sb)", "21020%; noe nee /* static mem */ 
mote "11011"; 2a a Be /* program mem */ 
A Hl Taal a 0, ee /* register list */ 


/* catch-all */ 


uxnu uu 
¥ ’ , 1 ’ 


'w' /* fits no pattern */ 


/*---MAIN PROGRAM---*/ 


main( argc, argv ) 


int argc; 
char *argv[]?; 


{ 

int 33 

puts( “"\nA32000 v0.10" ); 

if¢t arge <-2:}-{ 
puts( "\n?No file name specified" ); 
exit( 1); 

} 

symcnt = 0; 


for( pass = 1; pass <= 3; ++pass ) { 


makename( argv{ 1], “.s" ); 
fasm = fopen({ filename, "r" ); 


if( fasm == 0) { 
puts( "\n?Unable to open source file" ); 
exit tii. +3 

} 


if( pass == 3) { 
makename({ argv{ 1], “.hex" ); 
fobj = fopen( filename, “w" ); 
if( ! fobj ) { 
puts( “\n?No directory space" ); 
exit{ 1}: 


} 


puts( “\nPass " ); 
putchar( pass + '0O' ); 


ll 
loo 


asmadr 
codadr = 
if( pass 


Se Se 


3) { 
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objflush(); 
listnl (); 


} 
inpload (); 


while( gword() ) { 
if( match( word, “end" )) break; 


/* Each word is processed by the following nested if 
statement, which attempts to identify what it is. 
Note that any successful identification stops the 
process of the statement. */ 


if( ! islabel( word )) 
if( ! ispseudo( word }) 
if( ! isopcode( word )) 
if( ! isequate( word )) 
error( *2*; word): 


} 
fclose( fasm ); 

/* Sort symbols after pass 1. */ 
if( pass == 1) sortsyms(); 


if( pass == 3 ) { 
objflush(); 


puted fst, fon) + /* write eof record */ 
FOE (4s Ogi < 107. +41) pute (:*0", fob) 73 
pate ( *\n*, feb} }; 


fclose( fobj ); 


} 


listpr(); 
nua i “\ni\n"* )}7 
dumpsyms () ; 


if( errors ) 
puts( “\n---Fix errors and reassemble---" ); 


} 
/* Construct a filename from two strings. */ 


makename( p, q ) 

char *p, *q> 

{ 
char *r; 
r = &filename[ 0 ]; 
while( *p ) *r++ = *pt++; 
while( *q ) *r++ = *q++; 
ae * NOT g 


} 


/* Check to see if the word is a label, and if it is, add 
its value to the symbol table */ 


int islabel( w ) 
char *w? 
{ 
while( *w ) ++w? 
if( *--w != 's' ) return 0; 
*w= '\O's /* take off the colon */ 


addsymbol ( word, codadr ); 
return 1; 


} 
/* Check the word to see if it is a pseudo-op. */ 


int ispseudo( w } 
char *w; 
{ 
long int getarg(), temp; 


if( match( w, “org" }) { 
asmadr = getarg(); 

codadr = asmadr; 

if( pass == 3 ) objflush(); 


(continued on next page) 
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the dBx™ translator 


~ aBx produces quality C direct 
from GBASE II or III programs. 


Move dBASE programs to UNIX or other machines. 
Improve program speed and reliability. 
Support multi-user/network applications. 


With power guidebook of conversion hints. 


Includes full screen handler and uses your 
current C database manager. 


May be used to move existing programs or help 
ABASE programmers learn C easily. 


For MSDOS, PCDOS, UNIX, XENIX, Macintosh, AMIGA. 
(Uses ANSISYS driver on MSDOS, CURSES under UNIX) 


Priced from $350, also available from distributors. 


dBx is a trademark of Desktop A\i 


1720 Post Road E., Westport, CT 06880 = _MCIMAIL + DESKTOPAI 
Phone + 203+255 +3400 Telex * 6502972226MCI 


Circle no. 258 on reader service card. 


Transform Your Programs 
edward k es with 
CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor. 

¢ Define arbitrarily complex macros with #define command. 

¢ Include and nest files to any depth with #include command. 

¢ Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

¢ Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 


Fast and flexible # aS BS 

e 30 times faster hai the Peon acescor pabhehed in Dr. Dobb’ S 
Journal. 

¢ Can be used for any language, including assembler. 

® Can be used as a stand-alone macro/ include processor. 

© Code can be used as the lexical analyzer for parsers or 
assemblers. 


e You get “Diiheie SOURCE CODE i in i stadatd C. 

¢ You get everything you need to use CPP immediately. 

¢ CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. 


Enteleki, Inc. 

210 N. Bassett St., Room 101 

Madison, WI 53703 

Tele. (608) 258-7078 
TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5% inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 
in U.S. dollars drawn ona U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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Listing One (Listing continued ) 


return 1; 

} 

$£C match? .w,;. “db*-)) { /* Note: Allow msgs? */ 
temp = getarg(); /* get argument */ 
objout ( temp & OxFF ); /* output byte */ 
return 1; 


} 


if( match( w, "dw" )) { 
temp = getarg(); /* get argument */ 
objout ( temp & OXxFF ); /* output lsb */ 
objout (( temp >> 8 ) & OXFF ); /* output msb */ 
return 1; 


} 


if( match( w, "dd" )) { 
temp = getarg(); /* get argument */ 
objout ( temp & OxFF ); /* output lsb */ 
objout(( temp >> 8 ) & OxFF ); 
objout (( temp >> 16) & OXxFF ); 
objout (( temp >> 24 ) & OXFF ); 
return 1; 


/* output msb */ 


} 


if( match( w, “even" ) && ( codadr & 1 )) { 
objout( 0 ); /* send 1 byte to go to word bndry */ 
return 1; 


} 


return 0; 


} 


/* Check to see if the word is an opcode, and if it is, 
get any operands required and generate code. */ 


int isopcode( w )}) 

char *w; 

{ 
long int value(), bitbin(), decbin(), 0, ocodadr; 
char opbuf[ 33 ], bytbuf[ 33 ], extbuf[ 128 ]; 
char opopt, modopt, opsiz, opcnt; 
ps ae eas Pe! ee & 
char *p, *q, *cpystr(), *regbits(); 


/* postbytes & scaled indexes */ 
int opexbt[ 4 ], opexct; 


int adexct, adexln[ 8 ]; 
char *adexpt[ 8 ], *eoadex; /* addressing extensions */ 


ocodadr = codadr; /* save addr of begin of instr */ 


opexct = 0; /* no postbytes as yet */ 
adexct = 0; /* no extensions as yet */ 
eoadex = &extbuf[ 0 ]; /* point to begin of extbuf */ 


for( i = O; i < MAXOP; ++i ) 
if( match( w, opcode[ i ].onam )) { 


opopt = opcode[ i ].ocopt; 


if( opopt == 'x' ) { 
error( 'x', w )}; /* unimplemented instruction */ 
return 1; 


} 
p = cpystr( opcode[{ i ].obin, s&opbuf[ 0 ] )? 
/* see if length modifier */ 
if( ambcnt > 0) { 
p = &opbuf[ 0 j; 
opsiz = *ambig[ 0 ]; 
while( *p && *p != ‘i' ) +4+p; 
Litt: #p error’ i") Ww) 


else { 
switch( opsiz ) { 
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case ‘b' : *p++ = 'O'; 
ett = "OFS 
break; 

case ‘w' : *pt++ = ‘O's; 
Wott we IT 
break; 

case 'd' : *p++ = '1'; 
wot+ = Jy pai 


} 
} 
/* now parse operands */ 


/* get count of operands. 
Take abs value (neg = PC-relative) */ 


opent = opcode[ i ].ocnt; 
if( opcent < 0 ) opent = 0 - opcnt; 


p = &o0pbuf[ 0 ]; /* modified parts start at beg. */ 


fer t-3).=.03 4 < opens ++)-): 4 
gword(); /* get operand */ 


/* find addr mode */ 
k = 0; 
while(( k < MAXAM ) 
&& ! match( word, admode[ k ].mstr )) ++k; 
modopt = admode[ k ].mopt; 
/* move bit string into place */ 
q = admode[ k ].gstr; 
/* if opopt h, sfsr, skip 5 bits */ 
if( opopt == 'h' ) p += 5; 


/* for most opopts, move the bits in */ 


if(({ opopt ==' ' ) 
I Spept es Fae) 
LP: C opopt, == *c™ }) 
|| ( opopt == 'e' && j ==1 ) 
lt ( Opopt == *h*.) 
|| ( opopt == 'i' && j < 2 ) 
|| ( opopt == 'l' &6& j ==1 ) 
|| ( opopt == 'm' &6& 3 > 0 && j <3) 
[4 t opopt.--< “89° £65) < 2°)) 
while( *q ) *pt+ = *qt++; 


/* Double the effort for scaled index mode. create an 
extension postbyte opexbt[] with basemode as upper 
5 bits, reg as lower 3 bits. */ 


if( admode[ k ].mopt == ‘s' ) { 
1 = ( *ambig{ 1] ) & 73 
q = cpystr( ambig[{ 0 J], &bytbuf[ 0] ); 


/* find basemode */ 


k = O; 

while(( k < MAXAM ) 
&& ! match( ébytbuf[ 0 j, 
admode[ k ].mstr )) ++k; 


modopt = admode[ k ].mopt; 


/* move bit string into postbyte. use bitbin, because 
value() destroys ambig[] array which we still need. */ 


qQ = cpystr( admode[ k ].gstr, 
&bytbuf[ 0 ] ); 


== ge /* back up to null */ 
*qt+ "O44 (ho) Se 2 yes 
Sr me AE OS SC oe es 
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tqt+ = '0' + (1lE1)? 
*Q = [NOT 


opexbt [ opexct++ ] = bitbin( &bytbuf[ 0 ] ); 
q = admode[ k ].gstr; 
} 


/* funny handling of reg: index operation (opopt 'm') */ 


if( opopt == 'm' &6& j ==0) { 
p = é&opbuf[ 10 ]; /* off to reg */ 
eel /* skip 0 bits */ 


while( *q ) *pt+ = *q++; 
p = &opbuf[ 0 }; /* reset */ 
} 


/* move ambigs into extension bytes. set length to 
variable (0). For some addressing modes, the 
extensions go in in reverse order */ 


if( modopt == 'r' ) 
for( 1 = admode[ k ].mcnt - 1; 1 >= 0; 
eR ing 
adexpt [ adexct ] = eoadex; 
adexin[ adexct ] = 0; 
++adexct; 
eoadex = cpystr( ambig[ 1 ], \ 
eoadex ); 


} else for( 1 = 0; 1 < admode[ k ].mcnt; +41) { 
adexpt[ adexct ] = eoadex; 


adexln[ adexct ] = 0; 

++adexct; 

eoadex = cpystr( ambig[{ 1 ], \ 
ecadex ); 


} 


/* special logic for register list for “enter", "save", 
"restore", “exit" */ 


if(( 3 == 0 && opopt == 'f' ) || opopt == 'g' ) { 
adexpt[ adexct ] = eoadex> 
adexln[ adexct ] = 1; 
++adexct; 


. eoadex = regbits( word, eoadex, opopt ); 


} 


/* shorten extension to 1 byte for enter, return */ 


if(( j == 1 && opopt == 'f' ) || opopt == 'n! 
if( adexct > 0 ) adexln[{ adexct - 1] = 1; 
else error( ‘e', w ); 


} 
/* opopts ‘e' or ‘'d': immed data becomes 4 bit value */ 


if(( j == 0 && opopt == 'e' ) || opopt == 'd' ) { 
if( ! adexct ) error( 'e', w); 

else { 
l = value( adexpt[ --adexct ] }); 
p = &0pbuf[ 5 j; 
7th = Ol + (71 oe Ss bs 
ott ee te Cink Ors he 
Syed ae TO oe OR de eae ke 
+p "OD" & € 1 -o 2 je 
p = &0pbuf[ 0 ]j; 


Se 
~— 
=e “Se Se 


} 


/* opopt 'i': combine last two ambigs into one postbyte. 
Put it in bytbuf and set length to 1 */ 


if( opopt == 'i' 6& j ==3) { 
if( adexct < 2 ) error( ‘e', w ); 
else { 
1 = ( value( adexpt[ --adexct ] ) - 1 ) 
& Sis 


1 += ( value( adexpt[ --adexct ] ) 
& Ff }-<<.53 

bytbuf[ 0 ] = 'O' + 
(€:1 2-100.) -* 10 }3 

bytbutt i) = "0* + 
fe LaF 303-3. 30 38 


(continued on next page) 
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TURBO PASCAL GENERATOR 


THE GTP PROFESSIONAL MODEL 


Generate error-free Turbo Pascal source code for: 


DATABASES MENUS 
SCREENS REPORTS 


Build complete, working programs in minutes! 


FEATURES EASY 

Indexed Data Bases 1. Paint-the-screen 

Multiple Screens 2. Define fields & calculations 
Automatic Updating 3. Generate, compile & RUN 

Built-in Edits FLEXIBLE 

Retrieval Facility — 100% Turbo Pascal 

Automatic File Build — Modify in Pascal under Turbo’'s Editor 
Quick Screen Handling — Extensions are easy with 130 page 
Speedy DB Access Programmer Reference manual 
Context Sensitive HELP — 100 documented source code 

Full Keyboard Support routines included 


NOT Copy Protected NO Royalty Fees NO Run-time Library Required 


Requires: IBMPC (100% compatible) 256K RAM 2 Disk Drives 
PC-DOS 2.0+ Turbo Pascal 3.0 from Borland International 


PRICE $200.00 
CALL FOR QUANTITY DISCOUNTS 
VISA/MC — Check — Money Order — No COD or Purchase Orders 
Texas Residents: add $12.25 Sales Tax 
Outside US & Canada: add $10,00 Air Postage and make payment by 
credit card or money order in U.S, Funds. 


ALLEN, EMERSON & FRANKLIN 
P.O. Box 928 

Katy, TX 77492 

(713) 391-8570 
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Publication Quality 
Scientific Graphics 


Over 100 C routines make 
scientific plotting easy 


linear, log, & polar plots 
bar charts & Smith charts 
contour plots with labels 
3-D curves, 3-D surfaces 
4 curve types, 8 markers, errorbars 
14 fonts, font editor 
unlimited levels of SUP®&°scripts 
4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 
“> Zoom, pan, window and merce plots 
-> high resolution printer dumps 


SOURCE INCLUDED for persona/ use only 
$350. Dema $8 


256k, IBM, AT&T, Corona PCs, DOS 2.xx, 3.xx 
Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSrnet, Aztec, C86 compilers 


sin(x)cos{x-y) 
Polar Plot Test 
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Scientific Endeavors Corporation 
Route 4, Box 78 Kingston, TN 37763 (615) 376-4146 
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BRING YOUR 
HARD DISK 
BACK UP TO SPEED 
WITH 

H.D. TUNEUP! 


The harder you work, the more files you put on your hard disk, 
the faster DOS works to fragment those files. Fragmented files make 
you wait longer for file loads and saves. H.D. Tuneup rearranges 
the data on your hard disk for the fastest possible file i/o times. 
Your disk will speed along like new. 


‘Much better than Disk Optimizer™ ”’ 
- Philadelphia, PA 


Requires IBM PC/XT/AT compatability, DOS 2.x or higher and at least 196K. Hard 
disks up to 32mb may be tuned, along with most 5.25’’ diskettes. 








ONLY $39.95 + $3.00 shipping (US/Canada) 


SofCap Inc. 
P.O. Box 131 
Cedar Knolls, NJ 07927 
Visa (201) 386-5876 MasterCard 


If you want the absolute best possible performance from your hard disk: 


TUNE IT UP WITH H.D. TUNEUP 


Disk Optimizer is TM SoftLogic Solutions. H.D. Tuneup is TM SofCap. 
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Parallel Programming for “C” 
INTERWORK 
A Concurrent Programming Toolkit 


Interwork is a “C” program library which allows you to write 
your programs as a set of cooperating concurrent tasks. 
Very useful for simulation, real-time applications, and ex- 
perimentation with parallel programming. 


FEATURES 
Supports a very large number of tasks (typically more 
than 100) limited only by available memory. Low over- 
head per task results in very fast context switching. 
Provides a full set of inter-task communication (ITC) 
facilities, including shared memory, locks, semaphores, 
blocking queues, and UNIX*-style signals. Also has 
building blocks for constructing your own ITC facilities. 
Handles interrupts (DOS version) and integrates them 
into task scheduling. Supply your own interrupt handlers 
or block tasks on interrupts. 
Lets you trace task switches and inter-task 
communication. 
Comes with complete documentation including a user’s 
manual and reference manual of commands. 


Interwork is available for the following systems: 


Hardware Operating System 

IBM PC, XT, AT PC-DOS 2.0 or later 
KENIX" ~ . $159 
UNIX 4.2BSD $249 


PC-DOS version is compatible with DeSmet, Lattice, and 
Microsoft C compilers. 

Please specify hardware and operating system when 
ordering. Shipping and handling included; COD orders 
add $2.50. Send check or money order to: 


AN Block Island Technologies 
Innovative Computer Software 
13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 


(503) 241-8971 


“Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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Price 
$129 


IBM PC AT 
DEC VAX? SUN III 
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Listing One (Listing continued) 


bythbuf{i 2°): = 'O* 4: 4.403 
bytbut[ .3: } = *\0"?s 

adexpt[ adexct ] = é&bytbuf[ 0 ]; 
adexin[ adexct++ ] = 1; 


} 


/* opopt 'j': uwb bits for movs, cmps, skps */ 


LEt, Qpopt. =e} IT 
pt= 9; 
uwbbits( word, p ); 
adexct = 0; /* in case no paren */ 


} 
/* opopt 'k': config bits for setcfg */ 


if( opopt == 'k' ) { 
p += 5; 
cfgbits( word, p ); 
} 


/* opopt 'l': operand 1 becomes 4 bit value */ 


if( opopt == 'l' && j =0) { 
adexct = 0; /* unjunk extensions */ 
1: = 3-12 
if( stremp( word, “upsr" ) == 0) 1 = 0; 
if( stremp( word, “fp" ) == 0) 1 = 8; 
if( stremp( word, “sp" ) == 0) 1 = 9 
if( stremp( word, "sb" ) == 0) 1 = 10; 
if( stremp( word, “psr" ) == 0) 1 = 13; 
if( stremp( word, "intbase" ) == 0) 1 = 14; 
if( stromp( word, "mod" ) == 0 ) 1 = 15; 
if({ 1 == -1) error( 'p', word ); 

else { 


p = sopbuf[ 5 ]; 
*ptt+t = '0' + (( 1 >> 
*pt+ = 'O' + (( 1 >> 
*pott+ = "O° + (( 1 >> 
tp = *O* +°(16T Je 
p = sopbuf[ 0 ]; 


ai} & Lt Fs 
2) &1 )3 
is} 22" Fe 


} 


/* odd length extension for movm, opopt ‘o' */ 


if( j == 2 && opopt == ‘o' ) { 
if( adexct > 0 }) adexln[ --adexct ] = 1; 
else error( ‘e', w ); 
1 = value( adexpt[ adexct ] ) - 1; 
switch( opsiz ) { 
case 'd' : 1 *= 4; break; 
case ‘w' : 1 *= 2; break; 


bytbuf[{ 0 ] = ‘O0' + (({ 1 / 100 ) % 10 ); 
bytbuf[ 1 ] = ‘0° + (( 1/10) % 10 )3 
bytbuf[ 2 ] = °0° + (1% 10 )3 
bytbutt 3 FT = *\O% 
adexpt [{ adexct++ ] = &bytbuf[ 0 ]; 
} 
} /* done operands */ 


° value( é&opbuf[ 0 ] )}3 
1 = strilen({ opbuf ); 

/* Send as many opcode bytes as necessary */ 
objout ( o % 256 ); 
if( 1> 9) objout(( o / 256 ) % 256 ); 
if( 1 > 17) objout( o / 65536 ); 

/* Send postbytes for scaled index mode */ 


for( 1 = 0; 1 < opexct; ++1 ) 
objout ( opexbt[ 1 ] ); 


/* Send addressing extensions. 
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adexln = length of extension word in bytes if +. 
If 0, it is a variable-length signed displacement. 
If -1, indicates code-relative */ 


/* If opcode ocnt was negative, last address extension is 
code relative. */ 


if( opcode[ i ].ocnt < 0 ) 
adexln[ adexct - 1] = -1; 


/* send extension words */ 
for( 3 = 0; j < adexct; ++j) { 
Oo = value( adexpt[ j ] )?; 

/* if adexln[] negative, operand(s) code-relative. 
Note: on the 32000 you don't correct by adding 2 to 
codadr first */ 

if( adexln[ j ] <0) o -= ocodadr; 
/* Compute variable-length signed displacement */ 
if( adexln[ j ] <=0) { 
if( o < 63 && o > -64) { 

© & OX7F ); 

/* one-byte */ 


( o < 8191 && o > -8192 ) { 
oO & Ox3FFF )} + 0Ox8s000; 


a= i 

l 13 
lse if 
om sf 
Ll = 2s 
1 
Oo = (0 & OX3FFFFFFF ) 


0xC0000000; 


_ 
= 4; 


1 
} 


} else 1 = adexln[ j ]; 


/* address extensions are sent in lohi order */ 


if( 1> 3 ) objout(( o >> 24) & OXxFF ); 
if( 1> 2) objout((o >> 16) & OxFF ); 
if( 1> 1 ) objout((o >> 8 ) & OxFF ); 
objout ( o & 256 ); 
} 
return. iz 
} 
return 0; 


/* Special to create extension word for register list */ 


/* Regbits may look like “rO" or may look like "[r0,r2]" 
or like "[r0-r7]". */ 


char *regbits( src, dst, flg ) 
char *src, *dst, flg; 
{ 

int bits, reg, loreg, hireg; 


bits = 0; 


if( *sre == '[" ) ++sre; 
else error( '[‘', src): 


/* strip parens */ 


while( *src ) { 
itt *eret+ i= -*27>)° erect (+3 e*; 
reg = ( *srct+t+ ) — ‘O's: 
bits = bits | (1 << reg ); 
if( *srct+ == '-'" ) { 
loreg = reg; 
if{ *sre++ l= *r* )-error( *r', src}: 
hireg = ( *srct+t+ ) - 'O'; 
if( hireg < loreg ) { 
reg = hireg; 
hireg = loreg; 
loreg = reg; 
} /* swap if out of order */ 


ar¢:} =: 


for({ reg = loreg; reg <= hireg; ++reg ) 
bits = bits | (-1 << reg); 
++Src; /* skip over the comma */ 
} 
if( *sre == ']' ) break; 
(continued on next page) 
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Modula-2 


IBM PC/DOS 
Native Code Compiler 


This is a full implementation of Niklaus Wirth’s Modula-2 
language. Our product is not an interpreter, but a true 8086 
compiler, using state-of-the art techniques. A Unix-like 
"make" utility is included which provides automatic recom- 
pilation of modified source programs. 


The code generator produces object module input for the 
DOS link utility. You may combine your Modula-2 pro- 
grams with code from other languages such as Assembler. 
The software also operates on PC compatibles using 
MS/DOS. All the run time source code is included. None 
of the software is copy protected, and is fully supported and 
maintained by farbware. No royalties are charged for the 
use of the run time object. A complete and comprehensive 
reference manual is included in the purchase price. The 
manual is available separately for $25.00. 


Site licenses and quantity discounts are available. 


$89.95 Complete 


farbware 
1329 Gregory 
Wilmette, IL 60091 
(312) 251-5310 


Master Card and Visa Accepted 
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LEARN C ON 


with the video training course 


A Programmer's Introduction to C 
by Ray Swartz 


Topics Covered: DataTypes * Operators * Expressions * 
Loops * Conditionals * Input and Output 
Character Handling * Interactive Control 
* Arrays * Pointers * Switch 


Reviewers’ Comments: 


“The tapes cover the major features of C and are aimed at 
professionals with a background in another computer 
language. The key to the package is jhat Swartz knows his 
subject and how to teach it.” Dr. Lance Leventhal 













“If you're looking for a way to learn C quickly and easily, this 
course is something you'll want to consider.” 
Doug Topham 


Price: $400 includes two video tapes (3% hours) 
and 106 page manual. 
BERKELEY DECISIONS/SYSTEMS 
ASK ABOUT OUR TO ORDER CALL 
FREE 15 DAY REVIEW (408) 458-0500 
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Listing One (Listing continued ) 


} 


/* if flg = 'f', save/enter, need to swap bit 
significance. The routine above constructed it in 
reversed order in the first place, because of the 
routine below */ 


if( flg == 'f' ) { 
hireg = 0; 
for( reg = 0; reg < 8; ++reg ) { 
hireg = ( hireg << 1) + ({ bits & 1); 
bits = ( bits >> 1 }+; 
} 
bits = hireg; 
} 


/* now create a binary string for the extension. 
Note that bit significance becomes reversed again */ 


for( reg = 0; reg < 8; ++reg ) { 
*dstt++ = 'O' + ( bits & 1 ); 
bits = ( bits >> 1 ); 

} 


*dst++ 
*dstt+t+ 


‘p*s /* add b for binary */ 
“Vo! F /* terminate */ 


return dst; 


} 
/* put config bits into instruction */ 


cfgbits( src, dst ) 
char *src, *dst; 


{ 
char b[ 4 ]? 


oa ee ee 
= 9 Me a fae eee * ale 
Bt -2 y= ..50"? 
bi 3 ]-=-"O"s 
if( *sre == '[(' ) ++src; /* strip parens */ 


else error( '[', src ); 


while( *src ) { 
switch( *srct+ ) { 


case -'c'--2. bf. 0-.JuwstI4: 
break; 

case ‘m' =: bf 1:]-= *1*F 
break; 

case ‘f£*. 2 bl 2. j= *2"s 


break; 


case 1" ¢ BT 3 jvm. **s 
} 


if( *srct++ == ']' )}) break; 
} 
*dst++ = b[ 0 J? 
*dst++ = b[ 1 J? 
*dst++ = b[ 2 }; 
*dst = b{ 3 ]3 


} 


/* put uwb bits into instruction */ 


uwbbits( src, dst ) 
char *src, *dst} 
{ 

Ghar b{ 3 js 


bE.0 } = *Q"; /* default = forward */ 
bf 1) = '0O': /* default = neither */ 
BEA: }-= "O's 


while( *src ) { 
switch( *srct+ ) { 
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case "DB! §: Bl 274 
break; 


‘1's /* backward */ 


case ‘'u’ : b[ 0 } 
Dr Lb jrw Tits 


wis... J/*: Gnti2 Match *7 


break; 
case 'w' : b[ 0 ] = 'O'; /* while match */ 
BL: i] = Si? 
} 
} 
*dst++ = b[ 0 J? 
*dstt+t+ = b[ 1 ]3 
*dst = b[ 2 ]?3 


} 


/* Check to see if the word begins an equate, and if it 
does, add the symbol to the symbol table. */ 


int isequate( w )} 

char *w; 

{ 
char tempword[ 128 ]; 
char *q, *cpystr(); 
long int 1, getarg(); 


q = cpystr( w, &tempword[ 0 ] ); 
gword(); /* get next word */ 


if( stremp( word, “equ" ) == | | 
stremp( word, "="_}) ==0) { 
1 = getarg(); /* get argument */ 


addsymbol ( &tempword[ 0 ], 1 )}? 


return 1; /* it was an equate */ 


} 


return 0; /* we lost a word */ 


} 
/* Get an argument value (for use above). */ 


long int getarg() 


{ 
long int value(); 


gword(); /* get next word */ 
return value( word ); 
} 


/* copy string and return new ending address */ 


char *cpystr( src, dst ) 

char *src, *dst> 

{ 
while( *srce ) *dst++ = *srct++; 
*dstt++ = '\O'; /* terminate copied string */ 
return dst; /* return next address */ 

} 


/* Calculate the value of a word. It may be a symbol, a 
constant, or a computed value (must be enclosed in 
parentheses.) */ 

long int value( w ) 

char *w; 

{ 
long int hexbin(), octbin(), bitbin(), decbin(), v; 
int lookup(), i, negate; 
char *q> 
char *wp[ 16 J]; 
int wpcnt; 


negate = 0; 


if( *w == '='") { /* Unary negation */ 
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negate = 1; 
++w; 


} 


if( strcemp( w, "." }) ==0 } 
return codadr; /* . = code address */ 
LEC strom ( w,.".."-) <= 60 } 
return asmadr; /* .. = assembly address */ 


if( isdigit( *w )) { 
if( match( w, "*h" )) v = hexbin( w ); 
else if( match( w, "*q" }) v = octbin( w ); 
else if( match( w, "*b" )) 
v = bitbin( w ); 
else v = decbin( w ); 


} else { 

otf eee /* --- FORMULA --- */ 
++w; /* skip ( */ 
q = w 
while( *q ) ++q> /* find end of string */ 
aii: 
ot, *q@ te 1)" )}- erren(<“*}', aise 

else *q = '\O'; /* zap ) */ 

iwparen = 0; /* no parens now */ 
wpcnt = 0; 
while( 1) { /* find beg of word */ 


while( inword( *w )) ++w; 
if( ! *w ) break: 
wp[ wpocnt++ ] = w; /* ptr to value */ 


iwparen = 0; /* find end of word */ 
while{ *w && ! inword( *w )) ++w? 

if( ! *w ) break; 

*wtt+t = '\O's /* terminate it */ 


if( wpcnt == 16) { 
error( ‘1°, w)? /* too long */ 
break; 


} 


if(( wocnt $2) = 0) { 
error (: *yv",- #.) 2 /* must be odd */ 
-=wOcnt > 


} 
v = value( wp[ 0 ]} ); 


for( i = 1; i < wpcnt; i t= 
if( stremp( wp[ ij, "+" 
v += value( wp[ i+ 1 

goto opdone; 


“~~ PR 
~-iIi~ 
Il 
oO 
~ 
~~ 


if( strcemp( wp[ i], "=" 
v -= value( wp[ i+1 
goto opdone; 

} 

if( stremp( wp[ i], "*" 
v *= value( wp[ i+1 
goto opdone; 

} 

if( strcemp( wp[ i], "/" = 
v /= value( wpo[ i+1] ); 
goto opdone; 


—- 
‘ee 


— 
=e 


— 


error (: "os wo. 2°]:32 /* unknown op */ 
1 =.d3 /* get around c/80 bug */ 
} else { /* --- PLAIN VALUE --- */ 
ookup( w ); /* look up symbol */ 


i=l 
if( i< 0) return 0; /* unknown symbol */ 
v = symbol[{ i ].sval; /* return sym value */ 


(continued on next page) 
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C CODE FOR THE PC 


source code, of course 
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GraphiC 3.0 hi-res color plots 
Panache C Program ‘xenerator 
QC88& C Compiler. ... 
CJORCUEFENE eo 3 ee a Sl 
Coder’s ProloginC .. . 
Biggerstaff’s System Tools 
Translate Rules toC . . 
PS Beet See he 
YACCO é2 PREP. 5: 

tiny-c interpreter & shell 


ints: se as eee 
eee 


The Austin Code Works 
11100 Leafwood Lane 
Austin, Texas 78750-8409 
(512) 258-0785 


Circle no. 250 on reader service card. 
Free shipping on prepaid orders No credit cards 





Symbolic Debugger 
for 
Turbo Pascal 


For PC-DOS and MS-DOS computers. 

*Examine and modify variables during program 
execution. 

eSet breakpoints at procedures, functions 
and labels by name. 

¢Variables are displayed according to their 
declared types. 

¢View Pascal source on the screen or send it 
to the printer while your program is running. 

*Line-by-line single step. 

*Debug window allows debugging of programs 
without interfering with screen output. 

°*Much more, including machine-level debugging 
features. 


Suggested retail price: $59 


Our mail order price: $49 


plus Shipping and Handling: 
$3 US/Canada, $11 elsewhere. 
VISA and MASTERCARD accepted. 
Texas residents please add 6.125% sales tax. 
Unsure? Send $2 for a demonstration disc, refunded upon purchase. 
Kydor Computer Systems 
1701 Greenville Avenue Suite 505 
Richardson, Texas 75081 
(214) 669-1888 


Circle no. 275 on reader service card. 
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Listing One (Listing continued) 


if( negate ) v =0 - Vv; 


return v; 


} 
/* function for value() */ 


int inword( c ) 


Shar oF 

{ 
if( c == '(' ) ++iwparen; /* special var for this */ 
if( c == ')' ) --iwparen; /* function */ 


if( iwparen ) return 0; 
if ( == ' ' } return 1; /* is space */ 


return 0; 


} 


/* --- SYMBOL TABLE LOGIC --- */ 
/* add new symbol to symbol table */ 


addsymbol( p, v ) 

enar *p; 

long int v; 

{ 
char *w, *cpystr(), *alloc(); 
int 1, lookup (0)? 


i = lookup( p ); /* see if already known */ 
1£¢ 1.<°0.-}4 /* new symbol */ 

i = symcnt; 

++syment; /* count a new symbol */ 


symbol[ i ].snam = alloc( strlen( p) +1); 
w = cpystr( p, symbol[ i ].snam ); 
} 


symbol{ i ].sval = v; /* update value in table */ 
} 


/* lookup - returns symbol number or -1 if not found */ 


int lookup( p } 
char *“p; 


{ 
char *w; 
int.-4,.°4,: %; /foands 


found = 0; /* not found yet */ 
/* pass 1 - use linear search */ 


if( pass ==1) { 
for( i = 0; i < symcnt && ! found; ++i) { 
w = symbol[ i ].snam; 
found = ( stroemp( p, w) == 0); 
} 


} else { 


/* passes 2 and 3 - use binary search */ 


j = ( syment +.1) / 4; /* step to use */ 

i = symcnt / 2; /* starting point */ 
Koy, #13 /* one-step count */ 
while( 1) { 


w = symbol[ i ].snam; 

found = strcemp( p, w )? 

if( found == 0) { 
found = 1; 
break; 

} else if( found < 0) i -= 4 
else i += > 


if{-i-<0 }-i-= 0: 
if( i >= symcnt ) i = symcnt - 1; 
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J /= 23 /* halve step */ 
Lot 3 OR 
if( k-- == 0) { 
found = 0; /* not found */ 
break; 
} 
Jim Ly 


if( ! found ) { 
ZC pase t= 1.) error({ tut; w >? 
return -1; 


} 


return i; 


} 
/* display error code */ 


error( c, p ) 
char c; 
char *p; 
{ 
puts( "\n>>---> Error " ); 
putchar( c }); 
pete (tat. ™ -}7 
puts( p ); 


++errors; 


} 
/* sort symbols by shell sort */ 


sortsyms () 

{ 
int jump, done, k, 1; 
char *n; 
long int v; 


jump = symcnt; /* set jmp to cnt of elements */ 


while( jump > 0 ) { 
jump = jump / 2; 


while( 1) { 
done = 1; 
for( k = 0; k < ( symcnt - jump ); ++k ) { 
1 = k + jump; 
if( strcemp( symbol[ k ].snam, 
symbol[{[ 1 ].snam) >0O) { 
n = symbol[ k ].snam; 
v = symbol[ k ].sval; 
symbol[{ k ].snam = symbol[ 1 ].snam; 
symbol[{ k ].sval symbol[ 1 ].sval; 
symbol[ 1 ].snam n; 
symbol[{ 1 ].sval Vv; 
done = 0; 


} 
} 
if( done ) break; 


} 
/* dump symbol table */ 


dumpsyms () 

{ 
char *w; 
int. is 


long int v; 
puts( “\nSymbol and Value\n" ); 


for( i = O; 1 < symcent; ++i) { 
puts{ symbol[ i ].snam ); 
puts ( ea de 
v = symbol[{ i ].sval; 
puthex( v >> 24, 0 ); 
puthex(({( v >> 16) & OxFF, 0O )}; 


(continued on page 97) 
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* ModBase: an alternate DBMS — 
fully compatible with Ashton- 
Tate's dBase III; create and 
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Modula-2, and vice-versa; disk- 
based B+ Tree Indexing system 
allows files with millions of 
records. 
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MAC'S-A-MILLION™ 


THE LOW-COST 2 MEGABYTE MEMORY UPGRADE 
BOARD FOR THE APPLE MACINTOSH. 


Adds up to 1536K Contiguous RAM to 128K and 512K Macs. 
High Quality, Four-Layer, fully socketed daughter board. 

All boards come assembled and tested with ONE YEAR WARRANTY. 
All RAM recognized by System, Finder and Switcher. RAMdisk included. 
Reverts to 512K for programs which can't handle more memory. 
Available in kit form or with guaranteed installation (requires soldering.) 
Run with eight programs in Switcher or with an 1800K+ RAMdisk! 
= ideal board for those who performed their own DDJ 512K upgrade! 

























Kit Installed 

Board w/o RAM only $195 $255 
128K to 512K only $ 95 $175 
128K to 1 Meg only $325 $465 
128K to 2 Meg only $445 $585 
512K to 1 Meg only $255 $315 
512K to 2 Meg only $375 $435 
1 Meg to 2 Meg only $120 $120 
Quiet piezoelectricfan only §$ 39 $ 39 
Patch for 64K ROMs only $ 29 $ 29 

WA residents add 7.9% sales tax. Include $5 per board for 

Shipping and Handling, $20 if you send your whole Mac. 

Allow 2 weeks for personal checks to clear. Add $1.90 for C.O.D. 


















SOPHISTICAT=EI 
WIM CICCUITS. inc feevse 


Board w/o RAM 512K to 2Mb Kit 





1314 N.E. 43rd Suite 216 
Seattle, WA 98105 


Call (206) 547-4779 for more information. 


Dealer and Installer inquiries welcome. 
Prices subject to change without notice. 
Mac's-a-Million is a trademark of Sophisticated Circuits, Inc. Macintosh is a trademark licensed to Apple Computer, Inc. 


Circle no. 354 on reader service card. 





TOTALCONTROL 


with LMI FORTH™ 





For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 
Interactive Forth-83 Interpreter/Compilers 


16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 


Unique table-driven multi-pass Forth compiler 
Compiles compact ROMable or disk-based applications 
Excellent error handling 

Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 
Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

No license fee or royalty for compiled applications 


For Speed: CForth Application Compiler 


e Translates “high-level” Forth into in-line, optimized 


machine code 


e Can generate ROMable code 


Support Services for registered users: 
e Technical Assistance Hotline 


Periodic newsletters and low-cost updates 
Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 






a ‘ 

Laboratory Microsystems Incorporated 
| | Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 


Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 

France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 

Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 

Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 





Circle no. 205 on reader service card. 








TURBO ISAM MASTER 


TURBO MASTER helps you develop 
your functional specs and then allows 
you to QUICKLY prototype a validation 
model of your system. TURBO MASTER 
can then generate a super-fast Turbo 
Pascal Program that features advanced 
screen input and control, a professional 
control menu, and database functions. 


¢ MASTER DATABASE PROGRAM - Generates 
Pascal Program Code for the following functions 
—Add a Record - Allows both duplicate & 
unique only keys. Change the up to 48 fields 
comprising the primary key and the up to 7 
secondary keys at any time during input, and 
the validity of the keys are checked and the 
ISAM key files are automatically adjusted. 
—Delete a Record - Shows the record to be 
deleted on the screen and allows you to 
change your mind about deleting, and then 
adjusts the keys files automatically for the up 
to 8 keys. The disk space is reused 
automatically by the programs. 
—Edit a Record - with a key change allowed. 
—Search Database by Key - The ability to 
display the keys on the screen or printer in 
sorted order. 
¢ DATA BASE RECOVERY PROGRAM. This 
program recovers your database if it corrupted 
by a power outage or certain hardware failures. 
e MULTIPLE ISAM FILES - Can be used at the 
same time in a single program. The generator 
also produces context sensitive instructions on 
how to integrate the generated program into 
your main program. 
e DOCUMENTATION - Print screens and ISAM 
specifications. Also inline program documenta- 
tion is generated. 


TURBO MENU MASTER 
GENERATES ‘Ready to Run’ Turbo Programs 
with Dedicated Screens or Windows. 
e FEATURES: Has Menu Data Base so it’s easy 
to modify menus. 
PROVIDES SELECTION BY: 
—Press of a number 
—Press of a function key 
—Press the high lighted letter 
—Use the arrow keys 
ADAPTIVE SCREEN COLORS — Different 
screen colors are automatically used for color or 
monochrome display. This allows you to provide 
a better interface for the user. 
e INTERACTIVE MENU BUILDER 
—Allows for the automatic entry and reorder of 
selections 
—Offers easy color selection 
—Allows for choice of procedure, chain, ex- 
ecute or comment code generation for each 
selection 
—Has startup Menu that YOU design. 
—Provides for the integrated Display and con- 
trol of the Key Lock Status. 


TURBO RESIDENT SCREEN CAPTURE 
which allows you to capture Text 
Screens from any running program. 
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TURBO 


TURBO SCREEN MASTER 


GENERATES ‘Ready to Run’ Mulit-screen pro- 
grams with advanced field definition. 
e USER SPECIFIED PROCEDURES can be call- 


ed before and after data entry for each field. 
This allows SCREEN GENERATION THAT IS 
INDEPENDENT OF USER INSERTED PRO- 
GRAM STATEMENTS. 

YOU CAN CUSTOM PROGRAM special field 
edits and processes which Screen Master 
automatically includes into the screen program. 
This allows for “On the Fly FUNCTION KEY 
AND WINDOW ROUTINES. 

RECORD FORMATS and initialization routines 
for Structures and Arrays are automatically 
generated. 

CAN SPECIFY a Protected Field to be automatically 
redisplayed if its value changes. 

TYPES INCLUDE Strings, Yes/No, Time, 
Male/Female and Numbers. 

FIELDS CAN BE STORED (declared) as 
Boolean, Integer, Real, Character, or String. 


COMPARISON WITH TURBO SCREEN 


SCREEN SCULPTURE 
OTHER PRODUCTS tea alates get 








Full support for structures, arrays 
and Declarations specifications YES 
Full support for user written pro- 


cedures, function keys & help 
screens 
Etch-A-Sketch Border Drawings 
Point and Paint color interaction 
Border color control 
User defined valid character sets 
Display of Caps/Num Lock Status 
Optional realtime initialization of 
data/time 





TURBO RESIDENT ISAM 
Replaces Borland’s Toolbox ISAM method 


Eliminates 8k of code space that Borland’s Tur- 
bo Toolbox ISAM requires in your program. 
Puts the Key Buffer Data Area outside of your 
program’s data space. 

Speeds Compling 

Eliminates errors caused by inconsistant ISAM 
specifications between ISAM files. 

Increases program loading time. 

Reduces object program size. 

Offers SUPER-FAST record creation and 
lookup. For example, it can CREATE over 20 
single key records PER SECOND on an IBM AT 
running at a 9 meg clock rate. 


OUR USERS REPORT 


“Since Fall of 85, | have generated over 300 pro- 
gram modules with it and find it to be just what | 
needed. Most of all the modules represent 5000 
to 8000 lines of Pascal Code’ Oner Systems 
“By being able to produce a 21 screen and 
menu control demo so quickly helped me obtain 
the contract.”’ 

‘“Speeded up my screen development by 6 
times’’ Elexor Associates. 

“Has many of the features of the Super Mini 
development tools costing $10,000.”’ Applied 
Micro Systems. 

“We developed 3 Vertical Market Applications in 


the 6 months we had your system.’ Absolute 
Systems. 


Circle no. 233 on reader service card. 
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SCREEN/APPLICATION GENERATOR 
BE 3 to 6 TIMES MORE PRODUCTIVE 
For S$OO°S5 receive 6 Floppy Disks & Manual. DDJ Special: $69.95 


Expires 1/31/87 
MK KKKK SK 
»¥BTRIEVE INTERFACE MODULE * 
¥ Allows full multiuser record locking and * 
¥% Automatic file recovery for the industry's * 
4% most popular LANs. Works with the in- * 
» dustry’s leader of professional databases * 
= for multiuser LAN’s (optional). $99.95 * 
» Requires Btrieve by SoftCraft, Inc. * 


MEME KR KKKKKK KK 
TURBO MASTER TOOLS 


The Turbo Toglkit Master includes procedures for 
full control over all screen attributes, advanced str- 
ing functions, automatic control of multiple help 
screens, saving and retrieving screens to RAM 
buffers, Caps/Num/Scroll/Lock control pro- 
cedures, and report procedures. 


RISK FREE TRIAL 
Try the demo package included for 30 days. If not 
pleased return for a full refund. 

Credit Card Orders Call: 


1-800-821-9503 
In Florida (800) 342-0137 
For Other Information Call (305) 892-5686 


NO ROYALTIES on Generated Programs 


YES, ENCLOSED IS $69.95 


For 
Turbo Master Tools 
Turbo Menu Master 
Turbo Screen Master 
Turbo ISAM Master 
Turbo Screen Capture 
Resident ISAM 


Systems Requires: IBM PC,XT,AT or 100% Compatible 

-246K MS DOS 2.0 or Higher, Turbo Pascal 3.0 - 2 DD/DS 

Disk Drives. 

US orders add $7.50 S&H All foreign orders add $15 
per product ordered. 


Name: 


Shipping Address: 





City: 





State: 





Zip: 


VISA or MC #: 





Exp. Date 


C.0.D.’s will be accepted. Outside USA: make payment by 
bank draft, payable in US dollars drawn on a US bank. 

© Turbo Pascal & Turbo Database Toolbox are trademarks of 
Borland International, IBM is a trademark of International Business 
Machines. MS-DOS is a trademark of Microsoft. Btrieve is a 
trademark of Softcraft, Inc. Screen Sculpture is a trademark of the 
Software Bottling Co. of New York. © 1985 Hawaiian Village Com- 
puter Software. 


HAWAIIAN VILLAGE COMPUTER SOFTWARE 
1109 Pennsylvania Ave., St. Cloud, Florida 32769 
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Listing One (Listing continued ) 


puthex(( v >> 8 ) & OXxFF, 0O ); 
puthex( v & OxFF, 0 ); /* print value */ 
pucchar(. "*\n* -}? 


} 


/* Match string. If match, returns 1; else returns 0. 
Ambiguous values from the matches are saved and 
pointed to by the array of char pointers ambig[], so 
they can be checked later. */ 


int match( wl, w2 ) 
char *wl, *w2; 
{ 

char cy 

char *next_ambig; 


next_ambig = é&ambig buffer[ 0 ]; /* init ambig buff */ 
ambcnt = 0; /* ambigs so far */ 


while( *wl ) { 
C= Fwette 


2 Oc aeceeaae, 
ambig[ ambcnt++ ] = next_ambig; 
while( *wl && *wl != *w2 ) 


*next_ambig++ = *wl++; 
if( ! *wl && *w2 ) return 0; 
*next_ambigt+ = '\0O'; 
} else if( c == '?' ) { 
ambig[ ambcnt++ ] = next_ambig; 
*next_ambigt+ = *wl++; 
*next_ambigt+ = ‘\0'; 
} else if( c != *wl++ ) return 0; 
} 
return 1; 


} 


int gword () 

{ 
char *p, *q; 
char c, gchar(); 


p = &word buffer[ 0 ]; 


c= ' 3 
while( isdelim( c }) c = gchar(); 


while( ! isdelim( c )) { 
*pt+ = tolower( c ); 
c = gchar (); 

} 


tp = "\0': /* terminate word */ 


word = &word buffer[ 0 ]; 


return 1; 


} 
/* is the character a delimeter? */ 


isdelim( c ) 
char c; 


{ 
if( paren || quote || brack ) 
return 0; /* not a delim */ 


Liq cee? Of eee, Aes Ss* HS ae En NX 
Lf oer EL Se eA) 
return 1; 

return O; 


} 

/* get next char from source file */ 
char gchar () 

char c, getch(); 


c = getch(); /* get char from file */ 
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/* terminate this ambig */ 


/* 1l=-char ambig */ 
/* terminate it */ 


} 


if( c == '\'' ) quote = ! quote; 
if( c == '"" ) quote = ! quote; 
if( c == '(' ) ++paren; 

if( c == ')' ) --paren; 

if¢ c == *[* .) ++brack: 

if( c == ')' ) --brack; 


if( ! quote && ! paren && ! brack ) { 
while( c == ';' ) { /* scomment\n */ 
while( getch({) != '\n' ) ; 
c = getch(); 
} 


return c; 


puts( p ) 
char *p; 


{ 
} 


while( *p ) putchar( *pt+ ); 


/* --- source file routines --- */ 


char getch () 


{ 


} 


while( inpecnt == 0 ) { 
listpr(); 
inpload(); 


/* if input buf empty, */ 
/* print listing line */ 

/* reload input buffer */ 

} 


--inpcent; 
return( inpbuf[ inpptr++ ] )>; 


inpload () 


{ 


char c, getc(); 


inpcnt = 0; 
inpptr = 0; 
while(({{ c = getc( fasm )) != '\n' ) && (c != EOF )) { 
inpbuf[{ inpcnt++ ] = c; 
if( listcp < 81 ) listline[ listcp++ ] = c; 
} 
inpbuf({ inpcnt++ ] = '\n'; 
} 
/* --- listing file routines --- */ 
listnl () /* list new line */ 
{ 
int. dis 


if( pass != 3) return; 


for( i =O; 1 < 267) +#1L ) siistiinef i: ) "Ss 
ror ( i =:26s 4 «81s 4442) dietiinel 2°} =. \o'> 
listop = 0; /* flag to cause addr output */ 
listcp = 26; 

} 

Lbyt{ bY /* put object byte in list file */ 


unsigned int b; 


{ 


char -¢} 

if( pass != 3 ) return; 

e“- (CD £46} Sie ot 'O"s 
tei. 88". ese ta Se 
listline[ listop++ ] = c; 

c.e{ hb 26 ).-+-"0*: 


eg te Te ee ge a i ee 
listline[ listop++ ] = c; 


(continued on next page) 
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Listing One (Listing continued) 


} 


listpr () 


{ 


} 


if( listop > 24 ) listpr(); /* print list line */ 


/* print list line */ 
if( pass != 3) return; 
putchar( "\n'" ); 


puts( listline ); 
listnl (); 


/* --- object file routines --- */ 

objout( c ) 

char c; 

{ 
asmadr++; /* incr asmadr, codadr. DON'T incr*/ 
codadr++; /* objadr, it is addr of lst byte */ 
if( pass != 3) return; /* skip if not last pass */ 
objbuf[ objcnt++ ] = c; /* put new byte in buffer */ 


} 


if( objcnt == 32 ) objflush(); 


if({ listop == 0) { 
lbyt ( asmadr / 16777216 ); 
lbyt ({ asmadr / 65536 ) % 256 ); 
lbyt (( asmadr / 256 }) % 256 ); 
lbyt ( asmadr % 256 ); 
listop = 9; 


/* print address? */ 


} 


lbyt ( c )3 /* send byte to listing too */ 


obj flush () 


{ 


int i, cksum; 


if( pass != 3) return; /* just in case we get here */ 
cksum = 0; 


if( ebjent >.0) { 
puee(-*:2"; fobs .}2 
puthex( objcnt, fobj ); 
puthex( objadr / 256, fobj ); 
puthex( objadr % 256, fobj ); 
puthex( 0, fobj ); 
cksum = 
objcnt + ( objadr / 256 ) + ( objadr % 256 ); 
for( i = O; i < objecnt; ++i) { 
puthex( objbuf[ i ], fobj ); 
cksum += objbuf[ i ]; 
} 
puthex( 0 - cksum, fob} ); 
putct *\n", |: fobs +3 
} 


objadr = asmadr; 
objcnt = 0;} 
puthex( b, c )} 
arnt Db, 3G 
{ 
int =v; 
v= (b & Ox0O0FO ) >> 4; 
if(v>9)v+= ‘At —- 10; else v += '0O'; 
pute t'v,:-¢.} 2 


} 


v= (b & OxOO0F ); 


if( v>9)v+= 'A' - 10; else v += '0'; 
pute( wv, oe ys 


long int hexbin( p ) 
char *p; 


{ 
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long int vz 


vo = OF 





while( *p ) { 
if( isdigit( *p )} v = (16 * v } + *pt+ - 'O'; 
else if( *p >= 'a' && *p <= 'f' ) 
v= {16 *-v ) + *ptt+ — "at + 103 
else ++p; 


} 


return v; 


} 


long int octbin( p ) 
char *p; 
{ 

long int v; 


v = 0; 


while( *p ) { 
if ( *D >= 'O' 6 *pD <= 2 
v= (8*v) + *ptt — 'O'; 
else ++p; 
} 


return v; 


} 
long int bitbin( p ) 
char *p;3 
{ 
long int v; 


v = 0; 


while( *p ) { 


eS ils «ee Al le “Ying ee Nae 
Ve 228-9 )o AB = "0" s 
else ++p; 
} 
return v; 


} 


long int decbin( p ) 
char *p; 
{ 

long int v; 


v = 0; 


while( *p ) { 
if( isdigit( *p.)}) v= ( 10.* v ) 4 >*ptt = 'O': 
else ++p; 
} 


return v3? 


} 


#include "stdlib.c" 


End Listing 
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— From B C Associates — SimpleNET™ 


=* SIMPLY THE LOWEST COSTLAN 





Yes, it's true, now you can take control of your data handling 
problems and implement your own PC local area network for 
only $99.00 per: station (plus software, power supply and 
cables). 


Are you tired of carrying around a box of diskettes just to 
transfer information among your many PC systems in your 
office? You've probably looked into networks, but the high cost 
of such systems kept you away. 








e User Interface modules 
e Cable Package 


SimpleNET Basic System* — For up to 4 users 


e Interface/Power supply module. (One power supply module is capable of driving 8 stations.) 


Only *695© Complete 


“Requires IBM PC/XT/AT or compatible with one available asynchronous communications port. 





Now there’s SimpleNET™. A truly low cost/medium perfor- 
mance alternate to the high priced systems. SimpleNET uses a 
small interface module which attaches to your PC systems and 
a PC Network (DOS 3.x) compatible network BIOS program. 
The interface allows up to 32 users to be connected viaa single 
interface cable with a maximum cable length of 1.2 kilometers 
(how about 4000 feet?). The software interface is compatible 
with DOS 3.x and the new PC Local Area Network Program 
available from your IBM dealer. 








e Network BIOS Software 
e Installation/Operations Manual 







Additional user can be 
added for $99.00 each. 







PROGRAMMERS AND SOFTWARE DEVELOPERS - LOOK AT THESE ad 10] D1 0 On B-). 





NO ROYALTIES REQUIRED — 


ASMLIB 
The Programmer's Library 


e A Multipurpose set of over 200 Assembly Language sub 


routines supplied in the form of a linkable library. » 
¢ Virtual disk file handling. 9° 
¢ Int. driven asynch. support. eu? 


* Graphics on EGA, herc. and CGA. 08 
¢ Floating point math ga ia with 8087 support. 
¢ Installable keyboard ac ed programs are easily written 


with ASMLIB’s s functions. 
¢ Plus much cn more. 
U ‘vow ‘ re 
¢ Suppliedwith complete source code. 


Only *149°° Complete 


asmTREE 
The Programmer's B+Tree Data File 
Management System x, ‘ 


¢ Acomplete single/ multiuser database managsment system 


written entirely in Assembly Language qi the Lattice “C” 
or Assembly Language ses se Capabilities. 


¢ Up to 256 users. 

° Up to 256 index and data tyes. 
¢ Multiple key types. G 
¢ Multiple indices “Ww 
e Duplicate a aah 
° Virtual UG handling 

° Plusyxch, much more 

¢ Supplied with complete source code. 


dex file. 
lable length keys. 


Only *395°° Complete 





GenericGL - Generic general ledger package can be used by 
any program...UDS...$295.00 


FSEdit - Full sreen edit package by UDS...$49.95 


REALIA COBOL USERS! 


FPLIB - Floating point library package with 8087 support and 
trig functions...$149.00 


Full Money Back Guarantee 





Enclosed please find my DCheck OMoney order for $ | 
Please send the following: 

BC ASSOCIATES a j re ee | 
; ——.. ‘SImMpleNET Basic 4.user...by UTE «6256 ccc udiaies .0O each = 

3261 No. Harbor Blvd., Suite s) —_____. asMTREE database development system ................. $395.00 each = | 

meliisacelan CA 92635 _____. ASMLIB Assembly Language library ..........0.....000. $149.00 each = | 

—___. GenericGL general ledger package ...................00000. $295.00 each = | 

1-800-262-8010 LS : p@eait dull aneierveditor 5 So 3 $ 49.95 each =. | 
—___. FPLIB Realia COBOL Floating point pkg .................. $149.00 each = 

in Calif. Call All prices include UPS shipping within continental United | 

(7 5 | 4) 526-51 51 States. Outside U.S. please add $10 per package. Calif. 3 | 
residents please add 6.5% sales tax. = 

wan, SE, Total = | 

Ss gues |S io 





Circle no. 182 on reader service card. 








Listing One (Text begins on page 104. ) 


1 #include <stdio.h> 
2 #include <fcntl.n 
3 #include <getargs.h> 


100 


4 
: 7* EXEPRINT.C Either print or modify the exe file header: 
* 

7% exe file Print the contents of a file's EXE header 

ae exe -mN file Modify the exe header so that N bytes of memory 

9.» are allocated for the combined bss/stack/heap 

10°." * area. If N is smaller that the required minimum 

2 A (bss + stack size) then it's rounded up. The 
aes largest permitted value of N is 65,535. Use 

so ee -ml for the minimum possible heap. 

24 exe -sN file Modify the exe header so that N bytes of stack 

1g 8 are used. If necessary, increase the bss/stack/heap 
Los > size to accommodate the new stack. (The 

sy A bss/stack/heap won't be made smaller, however). 
3 : Bate f 
19 
20 typedef unsigned short’ word; /* 2-byte unsigned number wf 
21 
22 typedef struct 
23 { 
24 word signature; 
25 word image _len; /* Length of load module image % 512 “es 
26 word file size; /* File size in 512-byte units “/ 
27 word num reloc; /* Number of relocation table items ad J 
28 word header size; /* Size of the neader in paragraphs */ 
29 word bss min; /* min size of data area above program a/ 
30 word bss max; /* max size of data area above program */ 
31 word stack disp; /* displacement in para. of stack seg. «/ 
32 word init sp; /* Initial SP register contents +7 
33 word checksum; /* Checksum for file */ 
34 word init ip; /* Initial IP register contents (PC) £/ 
a0 word code disp; /* displacement in para. to code seg. cf f 
36 word first reloc; /* displacement (bytes) to lst reloc item */ 
37 word overlay; /* overlay number. */ 
38 } 

39 EXE HEADER; 

40 

41 static int Hsize = 0, Ssize = 0; 

42 

43 ARG Argtab[] = 
44 { 

45 { 'm' , INTEGER, &Hsize, “Set miminum heap size to <num" }, 

46 { 's' , INTEGER, &Ssize, "Set stack size to <num" } 
47 }; 

48 

49 #define TSIZE (sizeof (Argtab) /sizeof (ARG) ) 

50 

SL Bm a «/ 
52 

53 usage () 
54 { 

55 fprintf( stderr, “exe [-ms[<num>]] file\n" ); 

56 exit (1); 
SF} 

58 

SQ [Ramm a a Fn */ 
60 

61 main( argc, argv ) 

62 char ** argv; 

63 { 

64 EXE HEADER h; 

65 int fd; 

66 unsigned numpara, ostack, odata ; 

67 

68 argc = getargs( argc, argv, Argtab, TSIZE, usage ); 

69 

70 if( arge != 2 ) 

71 fatal_err("exe: exactly one file name required\n") 7 

72 

IS 

74 if( (fd = open( argv{1], O_RDWR | O BINARY )) = -l ) 

15 fatal _err( "Can't open %s\n", argv[l] ); 

76 

HE if( read( fd, (char *) &h, sizeof(h) ) != sizeof(h) ) 

78 fatal_err( “Can't read %s\n", argv[1] ); 

79 

80 

81 if ( Hsize ) 

82 { 

83 /* 1) numpara = the number of paragraphs required to hold the 
84 * specified number of bytes. 

85 * 2) h.bss.max, the maximum heap size, gets either the 

86 * current minimum or the specified size, 

87 * whichever is larger. 

88 * 3) write out the modified header. 

89 * 

90 

ibe numpara = Hsize/16 + (Hsize % 16 != 0) ; /* 1 */ 
* h.bss_max = (numpara<h.bss min) ? h.bss min : numpara; /* 2 */ 
95 


lseek( fd, OL, O ); /* 3 */ 


(‘continued on page 102) 
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Now You Know Why 
BRIEF is BEST 


“BRIEF is simple to learn and use and extremely sophisticated.” 
PC Magazine, July 1986 


The Program 


Editor with 
the BEST 
Features 


Since its introduction, 
BRIEF has been sweep- 
ing programmers off 
their feet. Why? 
Because BRIEF offers the 
features MOST ASKED 
FOR by professional 
programmers. In fact, 
BRIEF has just about 
every feature you’ve 
ever seen or imagined, 
including the ability to 
configure windows, 
keyboard assignments, 
and commands to 
YOUR preference. One 
reviewer (David Irwin, 
DATA BASED ADVISOR) 
put it most aptly, 
‘“(BRIEF). . .is quite 
simply the best code 
editor I have seen.’’ 


Solution 


ystems ”™ 





Every Feature You Can Imagine 


Compare these features 
with your editor (or any 
other for that matter). 
© FAST 
¢ Full UNDO (N Times) 

e Edit Multiple Large Files 
¢ Compiler-specific 
support, like auto 
indent, syntax check, 
compile within BRIEF, 
and template editing 
Exit to DOS inside BRIEF 
Uses all Available Memory 
Tutorial 

Repeat Keystroke 
Sequences 

15 Minute Learning Time 
Windows (Tiled and 
Pop-up) 


© Unlimited File Size 
-(even 2 Meg!) 

¢ Reconfigurable Keyboard 

Context Sensitive Help 

e Search for ‘‘regular 

expressions’ 

Mnemonic Key 

Assignments 


Horizontal Scrolling 
¢ Comprehensive Error 
Recovery 


A Complete Compiled 

Programmable and 

Readable Macro Language 

¢ EGA and Large Display 
Support 

e Adjustable line length 

up to 512 


MONEY-BACK GUARANTEE 
Try BRIEF ($195) for 30 days — If not satisfied get a full refund. 


TO ORDER CALL (800-821-2492) 
SOLUTION SYSTEMS, 335-D WASHINGTON ST., NORWELL, MA 02061, 617-659-1571 


Circle no. 142 on reader service card. 


Program Editing 
YOUR Way 


A typical program editor 
requires you to adjust 
your style of programming 
to its particular require- 
ments - NOT SO WITH 
BRIEF. You can easily 
customize BRIEF to your 
way of doing things, 
making it a natural ex- 
tension of your mind. 
For example, you can 
create ANY command and 
assign it to ANY key - 
even basic function keys 
such as cursor-control 
keys or the return key. 


The Experts Agree 


Reviewers at BYTE, 
INFOWORLD, DATA 
BASED ADVISOR, and DR. 
DOBB’S JOURNAL all came 
to the same conclusion - 


BRIEF IS BEST! 


Further, of 20 top in- 
dustry experts who were 
given BRIEF to test, 15 
were so impressed they 
scrapped their existing 
editors! 


eED 
ROTECT 
+ COPY P 


BRIEF is a trademark of UnderWare 








Users’ 
Group 


A comprehensive, indexed 
Directory of Public Domain 


C Source Code is now available. 
To order, send $10 (U.S.) to: 


The C Users’ Group 


Post Office Box 97 
McPherson, KS 67460 
(316) 241-1065 


Write or call for more information on 
CUG membership. 
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ICs PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for NOV. 16, 1986 


OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1000Kx1 100 ns 
64Kx4 150 ns 
256Kx1 100 ns 
256Kx1 120 ns 
256Kx1 150ns 
128Kx1 150ns 
64Kx1 150ns 
EPROM 
64Kx8 250 ns 
32Kx8 250 ns 
27256 32Kx8 250 ns 
27128 16Kx8 250 ns 
27C64 8kx8 200 ns 
2764 8Kx8 250 ns 
STATIC RAM 
43256L-12 32Kx8 120ns 
6264LP-15 8kxs 150ns 


OPEN 61% DAYS, 7 am-10 Pm 


1Mbit 
4464 

41256 
41256 
41256 
41128 
4164 


27512 
27C256 


$10.00 
$12.00 


V20 8Mhz 
V30 8Mhz 


$310.00 


IBM PC/XT, Compag Portable & Plus; hp Vectra 
5 Mhz $125.00 


640 Kbyte MOTHERBOARD KITS: Zenith 150, 


80287-8 8Mhz 


8087 


SAT DELIVERY MasterCard/VISA or UPS CASH COD 

INCLUDED ON _| Factory New, Prime Parts Poo 
eccpiveo ay. | MICROPROCESSORS UNLIMITED, INC. 
Th: Std Air $6/4 Ibs | 24,000 S. Peoria Ave., (918) 267-4961 
Fr: P-One $13/2 Ibs | BEGGS, OK. 74421 No minimum order 
Please call for current prices because prices are subject to change. Shipping & insurance extra 


Cash discount prices shown. Orders received by 9 PM CST can usually be delivered to you 
the next morning, via Federal Express Standard Air (« $6.00, or Priority One ( $13.00! 
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Saler-lale—m (oleae gece, 
Pascal™ Programming 


with 
TURBO-JET 


e Ultra Fast Screen Read and Display 

e Advanced String and Numeric Formatting 

e Advanced File and Keyboard Handling 

¢ Subdirectory Utilities 

¢ Over 100 Files Included! 

Pascal Source Code included with all Routines 
Routines Crafted in Assembly Language 


No Royalties for Program Use 

Give Programs a Professional Look 
Don’t Pay More For Less! 

Dealer Inquiries Invited 


TURBO-JET, Only $39.95 


Add $3.00 for Postage & Handling 
NY Residents add sales tax 
TOC Business Solutions, Inc. 
nt @ Be =f0) a PA") 
(@) fe | Westbury, N.Y. 11568 
WL GAYA KY. (516) 795-2800 


Circle no. 345 on reader service card. 
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SHIP VIA FED-EX ON SAT. 








Listing One (Listing continued, text begins on page 104. ) 


se write( fd, (char *) &h, sizeof(h) ); 
} 
98 
99 if ( Ssize ) 
100 { 
101 y*-1) ostack = number of paragraphs in original stack 
102 * 2) odata = number of paragraphs of data. 
103 a2) numpara = number of paragraphs in new stack. 
104 * 4) modify stack size. 
105 * 5) Adjust the size of the stack+tdata area as appropriate. 
ats * 6) write the modified header out to the file. 
a] 
108 
109 ostack = h.init sp/16 + (h.init_sp % 16 != 0) ; FRE ST 
110 odata = h.bss max - ostack ; LEZ. *f 
111 numpara = Ssize/16 + (Ssize % 16 != 0) ; /* 3 */ 
Liz 
113 h.init_sp = Ssize ; : /* 4 */ 
114 
135 h.bss min = odata + numpara; JF 34] 
116 
pe if( h.bss min > h.bss max ) 
118 h.bss_ max = h.bss_min; 
119 
120 lseek( fd, OL, 0 ); /*-6 */ 
121 write( fd, (char *) &h, sizeof(h) ); 
122 } 
123 
124 print_hdr( &h ); 
125 close( fd ); 
126 } 
i2? 
L QB [ma rrr */ 
129 
130 print_hdr(h ) 
131 EXE_HEADER “i 
132 
133 printf ("%6d (0x%04x): ", h->signature, h->signature ); 
134 printf("Signature (marks this as a valid .exe file)\n"); 
135 
136 printf ("s6d (0x%04x): ", h->image len, h->image len ); 
137 printf (“Length of image mod 512\n" ); 
138 
139 printf ("%6d (0x%04x): ", h->file_ size, h->file_size ); 
140 printf ("File size (512-byte blocks) including header\n") ; 
141 
142 printf ("%6d (Ox%04x): ", h->num_reloc, h->num_reloc ); 
143 printf("Number of relocation table entries\n"); 
144 
145 printf ("s6u (0x%04x): ", h->header_ size, h->header size ); 
146 printf("Size of the header (paragraphs) = %lu bytes\n", 
147 (unsigned long) h->header_size * 16 ); 
148 
149 printf ("%6u (0x%04x): ", h->bss_min, h->bss min ); 
150 printf ("Min. memory above program (paragraphs) = %lu bytes\n", 
iSi (unsigned long) h->bss_min * 16 ); 
152 
153 printf ("%6u (0x%04x): ", h->bss_max, h->bss_max D3 
154 printf ("Max. memory above program (paragraphs) = %lu bytes\n", 
155 (unsigned long) “h->bss_max * 16 }3 
156 
157 printf("%6d (0x%04x): ", h->stack_disp, h->stack_disp ); 
158 printf ("Displacement (paragraphs) of stack within load module\n"); 
159 
160 printf ("%6d (0x%04x): ", h->init_sp, h->init_sp ); 
161 printf ("Initial value of the SP register (= the stack size)\n"); 
162 
163 printf("%6d (0x%04x): “, h->checksum, h->checksum ); 
164 printf (“Checksum for file\n"); 
165 
166 printf ("%6d (Ox%04x): ", h->init_ip, h->init_ip ); 
167 printf ("Initial value of the PC (IP) register\n"); 
168 
169 printf ("%6d (0x%04x): ", h->code disp, h->code disp ); 
170 printf ("Displacement (paragraphs) of code seg. within load module\n"); 
171 
172 printf ("%6d (Ox%04x): ", h->first reloc, h->first reloc ); 
173 printf ("Displacement (bytes) to first relocation Item in module\n") ; 
174 
175 printf ("%6d (0x%04x): “, h->overlay, h->overlay ); 
176 printf("Overlay number.\n"); 
177 End Listing One 
Listing Two 
1 #include <stdio.n 
2 #include <stdarg.h> 
3 
4 fatal err( fmt ) /* Print an error message to stderr and */ 
5S char ~ *fmt; /* then exit. a/ 
6 { 
7 va_list args; 
8 va_start( args, fmt ); 
9 vfprintf( stderr, fmt, args ); 
10 exit (-1°)=s eee 
11 } End Listing Two 
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Listing Three 


1 #include <stdio.h> he 
2 /* 
3 typedef struct n '* 
4 { 

int 
struct n 


struct on 
char 


tag; 
*left; 
*right: 
*key; 


Onoaow 


# 
10 NODE; 
11 


NRTRAV.C: A non-recursive binary */ 
tree traversal routine that uses */ 
the link-inversion method. af 


12 /*---------------------------------- - —- -- = ---------- -- st / 


13 
14 #define print (nodep) 
15 


printft( “4s “, 


(nodep) ->key ); 


16 /*--------~-—-—----~~----------------—- ~~ +--+ -- it 


i? 

18 descend left ( pres, prev ) 
19 NODE x*pres, **prev; 

20° { 

21 register NODE 
oe 

23 while( next = 
24 { 

25 (*pres) —>left 
26 *prev 

27 *pres 

28 
29 } 


*rext. ¢ 
(*pres)->left ) 
*prev; 


*pres; 
next ; 


~~ 


32 

33 descend _right( pres, prev ) 
34 NODE *4pres, **prev ; 
35 { 

36 register NODE 
37 

38 if( ! (next = (*pres)->right) ) 
39 return 0; 
40 

41 (*pres)—>tag 
42 (*pres)->right 
43 *prev 

44 *pres 

45 return 1; 

46 } 

47 

48 /* - = 
49 

50 trav( pres ) 
51 NODE *pres; 
ve { 

53 NODE 
54 

55 do 
56 { 


*next; 


=e 


1; 
*prev; 
(*pres) ; 
= next; 


*prev = NULL, *next; 


/* Descend left till we can't */ 
/* go any farther, reversing a 
/* links. = 


/* Descend right one node, LF 4 
/* reversing links. “/ 
/* Return 0 if we couldn't go. */ 


57 descend left ( &pres, &prev ); 


58 print( pres ); 


59 } while ( descend right( &pres, &prev) ); 


60 

61 while( prev ) 

62 { 

63 if( prev->tag == 
64 { 

65 next 

66 prev->left 
67 pres 

68 prev 

69 

70 while( 1 ) 
71 { 


0) 


/* go up froma */ 
/* left child = */ 


prev->left; 
pres; 
prev; 
next; 


/* and back down */ 


72 print ( pres ); 
73 if( !descend right (spres, &prev) ) 


74 
Be 


break; 


76 descend left( &pres, &prev ); 


77 } 

78 } 

79 else 

80 { 

81 next 

82 prev->tag 
83 prev->right 
84 pres 

85 prev 

86 } 

87 } 

88 } 
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/* go up froma */ 
/* wight chiid */ 
prev->right; 
0; 
pres; 
prev; 
next ; 


End Listings 





The professional 
C development 
environment 


Your C compiler creates great final code . 
but as a programming tool, its too,too slow. 
With C-terp you can edit, debug, and run 
without the wait. Nothing, but nothing, is faster 
for developing professional C programs. 


Choose the perfect C-terp companion 
for your C compiler 


C-terp/Microsoft 
C-terp/Lattice C-terp/Aztec 
C-terp/Mark Williams C-terp/C86 


Link in all your compiler’s functions, your own 
functions, add-on libraries, assembly routines, 
and data objects. Get instant access to every- 
thing in the C-terp interactive environment. 


C-terp/XENIX 


Only C-terp offers all this and more 

=# Full K&R with common ANSI 
enhancements 

# Source level interactive debugging 

= Software paging for your big jobs 

= Complete multi-module support 

# Run-time pointer checking 

= Unsurpassed reconfigurable screen 
editor 

# Dual display and full graphics support 

= Large model @ Call-in 


ORDER C-terp TODAY (specify masini 


C-terp runs on IBM PC, AT or 
compatibles. 


Price: 
MS-DOS 2.x and up - $298, 
Xenix System V 286 - $498 
MC, VISA, COD 
30-day money-back 
GUARANTEE 







Trademarks: C-terp (Gimpel Software), 
C86 (Computer Innovations), Lattice (Lattice, Inc.), 
Xenix, Microsoft, MS- DOS (Microsoft, Inc.), Aztec (Manx 
Software), Mark Williams (Mark Williams Company), 

IBM (International Business Machines, Inc.) 


GIMPEL SOFTWARE 


3207 Hogarth Lane, Collegeville, PA 19426 
(215) 584-4261 
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Shrinking .EXE File Images 
I t’s been pointed out to me that the 

shell occupies much more memo- 
ry at run time than is actually need- 
ed. Fortunately, the problem is easy 
to fix without having to recompile, 
and the techniques used are applica- 
ble to all .EXE files. 

The problem has to do with how 
EXE files are loaded into memory by 
MS-DOS and with how memory is 
used by malloc( ) and free( ). (See this 
month’s Flotsam and Jetsam, page 
108, for a description of memory or- 
ganization within a C program.) 

The MS-DOS loader reads the text 
and data segments from the disk and 
then allocates all remaining memory 
for the bss segment, stack, and heap, 
even if the program is a small-model 
program that couldn't possibly use 
all that memory. When an -EXE file is 
loaded, DOS can reduce this default to 
an amount of memory specified in a 
header found at the beginning of the 
file (in the first 14 words). This 
amount has to be large enough to ac- 
commodate the entire bss and stack 
segments. The heap, however, 
doesn’t need to be allocated at load 
time because more memory Is re- 
quested from DOS if the heap isn't 
large enough when malloc( ) is 
called, thereby increasing the size of 
the run-time image. 

The .EXE file header is initialized by 
the linker so that all available memo- 
ry is allocated to the current pro- 
gram. Most small-model programs 
will then reduce this amount to a 64K 


by Allen Holub 


combined data/bss/stack/heap area 
as part of the boot process. Unfortu- 
nately, 64K is always allocated, 
whether or not you need it. The shell, 
in its released form, has this 64K data 
space allocated to it, even though it 
only needs about 3K for static data 
and another 3K for the heap. Conse- 
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quently it takes up almost 90K of 
memory rather than the 50K or so 
that’s actually needed. 

The automatic assignment of 64K 
can be circumvented by having the 
linker put a more reasonable num- 
ber into the .EXE file header (by using 
the /CP or /STACK command-line op- 
tions). It’s not always convenient to 
relink, however, especially if you 
don’t have the original source or ob- 
ject modules. Fortunately, the size of 
the run-time image can be reduced 
by doing nothing more than chang- 
ing a couple of numbers in the .EXE 
file header. 

The Microsoft C compiler comes 
with a nifty little program called exe- 
mod that does just that—messes 
around with the .EXE file header to 
change the default run-time size of 
the program. Unfortunately the Mi- 
crosoft version is needlessly difficult 
to use (requiring you to specify stack 
sizes in hex bytes and heap sizes in 
decimal paragraphs), and, of course, 
if you don’t have the compiler, you 
don’t have exemod either. An easier- 
to-use version of exemod is in Listing 
One (page 100). 

The program (called exe) can be 
used in one of three ways (shown in 
Table 1, page 107, along with a sample 
output). If no command-line switches 
are present, then exe just prints the 
contents of the header. I'll look at this 
header in greater depth in a moment. 
The —m flag is used to change the de- 
fault data area size (the combined 
sizes of the stack, heap, and bss areas). 
If N is too small (less than the com- 
bined bss and stack sizes), then it’s 
rounded up to the minimum. You can 


use —m1 to get the smallest possible 
run-time image, though the image 
will grow larger if the program ever 
calls malloc( ). The —sN switch in- 
creases or decreases the stack size to N 
bytes. If necessary, the run-time im- 
age will be made larger to accommo- 
date a larger stack. The image isn't 
made smaller when you reduce the 
stack size. You can run exe twice, 
however, reducing the stack size the 
first time and then reducing the total 
file size the second time. For example: 


exe —s1024 file.exe 
exe —m1 file.exe 


reduces a file’s stack to 1,024 bytes 
and then eliminates the space allocat- 
ed to the heap. Be careful about re- 
ducing the stack of a Microsoft-com- 
piled program to less than 1K—I 
always seem to get a stack overflow 
error message when I do this. God 
knows what all that stack space is 
used for—my own part of the pro- 
gram isn't using it. 

Note that the largest N that can be 
associated with either switch is 
65,535. The only reason for this limi- 
tation is that I’ve used getargs( ) to 
process command-line arguments 
and getargs( ) can’t handle long-size 
arguments very easily. If you want 
larger images, replace the getargs( ) 
call on line 68 with your own com- 
mand-line processing routine. 

The .EXE file header is defined by 
the structure on lines 22—39, repro- 


duced in Code Example 1, page 107. 
The signature is a unique number 


used to identify this file as an .EXE file. 
The file_size, header_size, and ima- 
ge_len fields are used to determine 
the size of the load module (the com- 
bined text and initialized data areas). 
In particular, the load image requires 


((file_size * 512)—(header_size * 16)) 
+ image_—len 
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C Programmers! 


High-Speed Database tames 
complex C applications 


“db_VISTA™ lets you easily build complex databases with many interconnected record types...” 
Dave Schmitt, President, Lattice, Inc. 


Fy igh-Speed data retrieval and access... 

just two benefits of using RAIMA’s network 
model DBMS, db_ VISTA. Combine these 
design benefits with those of C—speed, 
portability, efficiency, and you begin to 
understand db__VISTA’s real measure... 
performance. 


Independent Benchmark proves 
High-Speed model 2.76 times faster 


An independent developer bench- 
marked db_VISTA against a leading 
competitor. Eleven key retrieval tests were 
executed with sequentially and randomly 
created key files. 


*Result of 11 Key Retrieval Tests 


db_ VISTA :671.24 seconds 
Leading Competitor :1,856.43 seconds 


db_ VISTA’s high-speed network database 
model lets you precisely define relation- 
ships to minimize redundant data. Only 
those functions necessary for operation are 


Royalty-Free Run-Time 


Whether you're developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA or db__ QUERY is the 
same. If you are currently paying royalties 
for a competitor’s database, consider 
switching to db__VISTA and say goodbye to 
royalties. 


FREE Technical Support 
For 60 days 
Raima’s software includes free telephone 
support and software updates for 60 days. 
Technical support personnel are available 
to answer questions about our software or 
yours. 


30-Day Money-Back Guarantee 
Try db_ VISTA for 30 one and if not fully 
satisfied, return it for a full refund. 
Order Schedule 
db_VISTA db QUERY 





db_VISTA Version 2.2 


Database Record and File Sizes 

¢ Maximum record length limited only 
by accessible RAM 

¢ Maximum records per file is 16,777,215 

¢ No limit on number of records or set 
types 

¢ Maximum file size limited only by 
available disk storage 

¢ Maximum of 255 index and data files 













Keys and Sets 

¢ Key length maximum 246 bytes 

¢ No limit on maximum number of key 
fields per record—any or all fields may 
be keys with the option of making 
each key unique or duplicate 

¢ No limit on maximum number of 
fields per record, sets per database, or 
sort fields per set 

¢ No limit on maximum number of 
member record types per set 














incorporated into the run time program. (1) Single-user $ 195 $ 195 Operating System 
ve [] Single-user w/Source $ 495 §$ 495 & Compiler Support 
Portable DBMS Applications Oj Multi-user $ 495 $ 495 ¢ Operating systems MS-DOS, PC-DOS, 
with db_ VISTA 2 Multi-user w/Source : 990 : 990 UNIX, XENIX, SCO XENIX, UNOS, 
F licati tability, VAX Multi-user 990 990 ULTRIX, VMS 
Peviive line of db._ VI TAs oe =. ae ae aa (J VAX Multi-user w/Source $1980 $1980 ¢C compilers: Lattice, Microsoft, 


C and complete source code is available. 
db_VISTA operates on most popular 
computers with several operating systems 
supported. So whether you write 
applications for micros, minis, or main- 
frames...db_ VISTA is for you. 


How db_ VISTA works... 


Design your database and compile your 
schema file with the database definition 
language processor. Develop application 
programs, making calls to db_VISTA’s C 
functions. Edit and review your database 
using the Interactive Database Access 
utility. Compile and link your C program 
with the db_ VISTA runtime library, and 
your application is ready to run. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX, MS-DOS, and 
VAX VMS. 


db_ QUERY™ lets you ask more 
of your database 


db__ QUERY is a linkable, royalty-free, 
SQL-based ad hoc query and report writing 
facility. It provides a user-friendly rela- 
tional view of a network-model database. 
Use it directly or design an interface for the 
inexperienced to generate powerful queries 
and reports. 


RAIMA" 


CORPORATION 


High-Speed Programming Tools, 
Designed for Portability 


Not Copy Protected 


Call Toll-Free Today! 


Order Line ...... 1-800-327-2462 
. 1-206-828-4636 


“VISA 


Read what others say... 


“If you are looking for a sophisticated C 
programmer's database, db_ VISTA is it. In 
either a single or multi-user environment, 
db_VISTA lets you easily build complex 
databases with many interconnected record 
types. The multi-user implementation 
handles data efficiently with a LAN, and 
Raima’s customer support and documen- 
tation are excellent. Source code availabil- 
ity and a royalty-free run-time is a big plus:’ 

Dave Schmitt, President 
Lattice, Inc. 


‘My team has developed a sophisticated 
PC-based electronic mail application for 
resale to HP customers. db_ VISTA has 
proved to be an all-round high performer 
in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us 

much time and development effort?’ 
John Adelus, Hewlett-Packard Ltd. 
Office Productivity Division 


‘On the whole, I have found db_ VISTA easy 
to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer’ 


Michael Wilson, Computer Language 





3055-112th Avenue N.E. 
Bellevue, WA 98004 USA 
(206) 828-4636 Telex: 9103330300 
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DeSmet, Aztec, Computer Innova- 
tions, XENIX and UNIX 


Features 

¢ Multi-user support allows flexibility to 
run on local area networks 

¢ File structure is based on the B-tree 
indexing method and the network 
database model 

¢ Run-time size, variable—will run in as 
little as 64K, recommended RAM size 
is 256K 

¢ Transaction processing assures 
multi-user database consistency 

¢ File locking support provides read 
and write locks on shared databases 

¢ SQL-based db__ QUERY is linkable 

¢ File transfer utilities included for 
ASCII, dBASE optional 


Utilities 
¢ Database definition language processo 
« Interactive database access utility 

¢ Database consistency check utility 
¢ Database initialization utility — 

¢ Multi-user file locks clear utility 

























¢ Key file build utility 

¢ Data field alignment check utility 
¢ Database dictionary print utility 

¢ Key file dump utility 

¢ ASCII file import and export utility 








*The benchmark procedure was adapted from 
‘Benchmarking Database Systems: A Systematic 
Approach”’ by Bitton, DeWitt and Turbyfill, 
December 1983. 


Order Toll-Free 
1 (800) 327-2462 


©. CHEST 
(continued from page 104) 


bytes. In Table 1, this comes to 
22°: $12)--32" fo 124 


or 10,876 bytes. 

Several of the fields are used for 
patching up a few instructions that 
the linker can’t patch. There are 
num_reloc of these items (three in 
exe.exe) organized as a linked list 
with the first node in the list at offset 
first_reloc from the beginning of the 
load module.! 


The bss_min and bss_max fields 
are used to allocate the combined 
heap, stack, and bss space. The initial- 
ized data, because it’s stored on the 
disk, is considered to be part of the 
load module, so its size isn't duplicat- 
ed here. Bss_min is the minimum 
amount of required memory in para- 
graphs (16-byte chunks). It’s the com- 
bined bss and stack sizes. Bss_max 
determines the maximum amount of 
allocated memory (also in para- 
graphs), so if it’s larger than bss_min, 
the difference between the two 
numbers is the amount of heap that 
can be allocated before DOS has to be 


WIZARO SYSTEMS 
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Dr. Dobb’s 
Aug. 86 


(408) 224-6015 
Only $45 





| =z i } 
Neosntial < O 4 | 
IXY aes 





| 





\ 
rs 
& 
a 


17645 Via Sereno 
Monte Sereno, CA 95030 


Circle no. 116 on reader service card. 


106 


called. The default values of bss_min 
and bss_max for exe.exe are shown 
in Table 1 (196 and 65,535, respective- 
ly). This means that the program re- 
quires a minimum of 196 paragraphs 
(3,136 bytes) for the combined bss/ 
stack area and will use all the rest of 
memory for the heap. The smallest- 
possible image can be created by set- 
ting bss_max to bss_min. 

The init_sp and stack_disp fields 
are used to set up the stack size. In- 
it_sp is both the stack size and the ini- 
tial value of the SP register (the SS reg- 
ister points at the bottom of the stack 
area). Stack_disp is used to locate the 
bottom of the stack. It is added to the 
initial contents of the CS register to 
initialize the SS register when DOS 
loads the program. Note that the stack 
size is included in the bss_min and 
bss_max figures, so these will have to 
be modified if init_sp is made larger. 

All these transformations are done 
by the code in Listing One. The file is 
opened on line 74, the .EXE header is 
read on line 77, the bss_min and 
bss_max fields are modified on lines 
81—97, and the stack variables are 
modified on lines 99—122. The .EXE 
header is written back out on both 
lines 95—96 and 120—121 (you have 
to seek back to the start of the file be- 
fore writing). Finally, the header con- 
tents are printed by print_hdr( ), 
called on line 124. 

The fatal_err( ) subroutine is given 
in Listing Two, page 102. It is used just 
like printfl ) is used. It writes a mes- 
sage to stderr and then exits to the 
operating system. Note that I’ve used 
the ANSI (as compared to Unix) con- 
ventions for subroutines with a vari- 
able number of arguments. Va_list 
and va_start are macros defined in 
stdarg.h, supplied with the compiler. 
If your compiler doesn't support 
these, substitute calls to fprintfl ) and 
then exit( ) for the fatal_err( ) calls. 
I'll talk more about subroutines with 
a variable number of arguments in a 
future column. 


Erratum 

The nonrecursive binary-tree tra- 
versal routine presented in July hasa 
serious bug in the algorithm. It 
couldn’t handle the case of a leaf that 
had a right, but no left, descendant. 


Listing Three, page 103, is another 
version of the routine that seems to 
work correctly. The basic process is 
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still the same (descend the tree re- 
versing pointers so you can go back 
up again, setting a tag bit just before 
going right), but the code has been 
shuffled around a bit. Note that in this 
version I’m keeping a tag field in the 
structure rather than setting the high 
bit of the first character of the key 
string. Look back in the July C Chest if 
you need a more detailed explana- 
tion of what's going on. 


Availability 
All the code from this month is avail- 
able on CompuServe in DL1 (type 


exe —mN file 


ddjforum). The getargs( ) subroutine, 
used but not printed this month, was 
originally published in the May 1985 
C Chest. The version used here has a 
fifth argument not present in the 
original version. If you're using the 
earlier version, just omit the extra ar- 
gument. The current version of 
getargs is available both on Compu- 
Serve and as part of the /util program 
disk distributed by DDJ (see ad, page 
124). 

All the source code for articles in 
this issue is available on a single disk. 
To order, send $14.95 to Dr. Dobb’s 


Modify the maximum memory used to N bytes. If this number is 


smaller than the combined bss and stack sizes, then it’s rounded up. 
Use —m1 for the smallest possible load module. The maximum value 


of N is 65,535. 
exe —SN file 
exe file 


Modify the stack size to be N bytes. 
Just print out the contents of the .EXE header. The command line 


exe exe.exe generated the following: 


23117 (Ox5a4d): 

124 (Ox007c): 

22 (0x0016): 

3 (0x0003): 

32 (0x0020): 

196 (0x00c4): 
65535 (Oxffff): 

_ 115 (Ox02cb). 

2048 (0x0800): 

— 14653 (Oxc6c3): 

2008 (0x07d8): 

0 (O0x0000): 

30 (Ox001e): 

~ 0 (0x0000): 


Checksum for file 


Overlay number 


Table 1: Using exe 


typedef unsigned short word; 
typedef struct 
{ : 
word 
word 
word 
word 


signature; 
image_len; 
file_size; 
num_reloc; 





Signature (marks this as a valid .EXE file) 

Length of image mod 512 

File size (512-byte blocks) including header 

Number of relocation table entries 

Size of the header (paragraphs) = 512 bytes 

Min. memory above program (paragraphs) = 3,136 bytes 
Max. memory above program (paragraphs) = 1,048,560 bytes 
Displacement (paragraphs) of stack within load module 

Initial value of the SP register (= the stack size) 


Initial value of the PC (/P ) register 
Displacement (paragraphs) of code seg. within load module 
Displacement (bytes) to first relocation item in module 


/* 2-byte unsigned number */ 


Length of load module image % 512 
File size in512-byte units 
Number of relocationtable items 


word 
word 
word 
word 
word 
word 
word 
word 
word 


check 


word overl 


} 


EXE_HEADER: 


header_size; 
bss_min; 
bss_max; 
stack disp; 
init sp: 


init ip: 


code_disp; 
first _reioc; 





Size of the header in paragraphs 
min size of data area above program 
max Size of data area above program 
displacement in para. of stack seg. 
Initial SP register contents 
Checksum forfile 

Initial IP register contents (PC) 
displacement in para. tocode seg. 
displacement (bytes) to ist re- 
loc item 


sum; 


ay; overlay number. 


Code Example 1: The .EXE file header 
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SQL Compatible Query System adaptable to any 
operating environment. 


CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 


Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


$395.00 


C Interpreter. Run the interpreter on any 
hardware and on any operating system. 
Develops true intermediate code, allowing full 
C features in an interpreter. User configurable 
interface to compiler library allows linkage 
with compiled routines. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 


URTZBERG 
GOmPUTER SYSTEMS 


41-19 BELL BLVD. 
BAYSIDE, N.Y. 11361 


VISA/Master Charge accepted 


(718) 229-4540 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT. AT are trademarks of IBM Corp 
MS-DOS and Xenix are trademarks of Microsoft Corp 


CQL and the CQL Logo are trademarks of Kurtzberg Computer 
Systems 
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ATTENTION 
DATABASE 
DEVELOPERS 





lf you have the need for relational 
database management within your 
application programs 


TURBO-DB’ 


is the programmer's tool you have 
been waiting for! 


TURBO-DB offers a number of features 
for the software developer: 
SMALL AND LARGE 
DATABASE MANAGEMENT 


A UNIQUE 
PROGRAMMATIC 
INTERFACE FOR 
CUSTOM APPLICATION 
DEVELOPMENT 


IN ASM, ‘C’, FORTRAN AND PASCAL 


QUEL-TYPE 
QUERY LANGUAGE 


INTEGRATED DATABASE 
ADMINISTRATION 


DATABASE RECOVERY 
AND BACKUP UTILITIES 


WRITTEN ENTIRELY IN ’C’- 
UNIX COMPATIBLE 


For the IBM PC/ XT/AT 
or compatible computers 
(256K RAM, DOS 2.0+, diskette or hard disk) 


Software Developer Package | 
e Interactive Query Writer 
e Database Administration 
e Database Backup and 
Recovery Utilities 
e User Tutorial 
e User Reference Manual 


$145 


Software Developer Package Il 
e Software Developer Package | 
e ‘C’ Object Code Interface 
e Programming Interface 
Reference Manual 


$395 


UPLAND SOFTWARE CO. 


P.O. BOX 3136 © REDWOOD CITY, CA 94064 
(415) 876-7636 


MasterCard, Visa, Checks Accepted 


Circle no. 316 on reader service card. 


108 


C CHEST 
(continued from page 107) 


Journal, 501 Galveston Dr., Redwood 
City, CA 94063 or call (415) 366-3600 
ext. 216. Please specify the issue num- 
ber and disk format (MS-DOS, Macin- 
tosh, Kaypro). 


Note 

1. For more information about how 
the relocations are processed consult 
Chapter 10 of IBM Corp.'s DOS Techni- 
cal Reference (Boca Raton, Fla.: IBM 
Corp., 1985). Much better descrip- 


tions of relocatable object module 
formats in general are in Steven Arm- 
brust and Ted Forgeron’s ‘'.OBJ Les- 
sons,’ PC Tech Journal 3:10 (October 
1985), 63—81, and Intel Corp.'s 8086 
Relocatable Object Module Formats 
(Santa Clara, Calif.: Intel Corp., 1981), 
order number 121748-001. 


DDJ 


(Listings begin on page 100.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 6. 





Flotsam and Jetsam 


Memory Organization 
in a C Program 


Most C programs are segmented into 


five parts: the code area (called the 
text segment); the initialized data 
space (called the data segment); the 
uninitialized data space (or bss seg- 
ment; the stack space (or stack seg- 
ment); and the area of memory used 
by malloc( ), called the heap. 

The stack is used for subroutine 
calling, in the normal way, but it's 
also used to store local automatic 
variables. When a subroutine is 


called, it subtracts a constant from | 


the stack pointer to make room on 
the stack for its own local variables 
and then accesses those variables in- 
directly through either the stack 
pointer or a special register called the 
frame pointer. 

Variables at fixed addresses (glo- 
bals and local statics) are in either the 
data or bss segments, depending on 
whether they are initialized by your 
program. Variables can be initialized 
explicitly (with an equal sign as part 
of the declaration) or implicitly. An 
example of the latter is a string con- 
stant, such as a format string passed 
to a printft ) call. Here the compiler 
automatically allocates and implicit- 
ly initializes an area of memory to 
hold the string, and that memory is 
put into the data segment (rather 
than the bss segment). 

Usually, both the text and data seg- 
ments (code and initialized data areas) 
are stored on the disk together. When 
the program is loaded, the variables in 


the data segment are loaded directly 
into their correct place in memory. 
There's no code generated to initialize 
static data; the data that is read in 
from the disk has the correct initial 
value. This explains why a static local 
variable has its initial value the first 
time a subroutine is called but on sub- 
sequent calls the variable contains the 
same value that it had at the end of the 
previous call. It’s read in having the 
initial value, but once you change it, it 
stays changed. 

The remaining three memory areas 
(bss, stack, and heap) are created as 
part of the loading process. After the 
loader has transferred the text and 
data segments from the disk into 
memory, it allocates enough addition- 
al memory above the data segment to 
contain the other three segments. The 
loader usually sets up the stack point- 
er to point into the stack. The pro- 
gram itself (or more correctly, the 
root or start-up module) initializes the 
entire bss segment with 0s and then 
calls your main( ) subroutine. 

The usual order of segments, going 
from low to high memory, is: 


text (code) 

data (initialized data) 
bss (uninitialized data) 
stack (local variables) 
heap _ (used by malloc( )) 


However, the stack and heap are of- 
ten reversed. The text and data areas 
are always adjacent because they re 
read from the disk as a single unit. © 
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to 9600 baud. It supports multiple 
__ tasks, ports, and users . . 


_ program and just about any other 


C Programmers: 
Wesupport every product in this ad & 700 others. 


Try any product here with a full 31-day money-back guarantee. 


Add Multitasking 
Communications 
Multi-Comm 


Fastest C 
Development on Earth: 
Instant C version 2.0 


Add background communications _ Instant C’s NEW version 2.0 gives 
to an existing system or write code you immediate (2 secs.) compilation 
_ for drawing from multiple devices, | and execution of large (15,000 - line) 


cs deamaighlulg or. multiple Tes: programs, and the ability to link in 
Multi-Comm is fully interrupt driv- 


external (commercial or your own) 
en, ROMable, and handles rates up _ libraries in an interactive. Lattice 


“es 3.0 or Microsoft 3.0 compatible, 

_all within —_interpreter-like environment with an 
_ your program. Designed to work integrated full screen editor and 

with Multi-C, Multi-Comm has all source level debugger. 

the functions you need for error-free = You "J] get full K&R standard C 

ASCII or binary data transfer. _ fast (33 second sieve) execution 
XMODEM protocol handler allows _ speed, and debugging with source 

you to transfer data between your code animation, single-stepping, 


, __ backtracing, and unlimited condi- 
computer. Modem control functions 


_ tional breakpoints. 
allow you to place or answer calls 


Instant C now supports multiple 
from foreground or background. screens and graphic devices, run-time 
Multi-C lets you create, manage, 


ge, _ checking of pointer and arrary ref- 
and communicate among tasks with erences, and includes a new manual, 
little overhead. 


: expanded tutorial and reference sec- 
ree On DATO yEare Gepet- tion, and complete library source. 
dent modules are supplied in source 


form (primarily in C). No royalties. 617-653-6194 MSDOS $399 
MS C, Lattice 2.15 or 3.0. C86. _ ° 
Multi-Comm with Rational 
Multi-C MSDOS $298 Systems, Inc. 
Multi-C Only MSDOS $149 
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BRIEF Makes Editing C Programs a Breeze 


No other editor comes close to making your life easier. BRIEF, The Program- 
mer’s Editor, is tailored to address the needs of C programmers — your 
needs. Take a look at the BUILT-IN features below. They are just part of 
the reason why 1000s of C programmers already rely on BRIEF. 


AutoCompile - While in BRIEF you can compile with MS C, Lattice, or 
several other compilers (we'll even help you support any compiler through 
our 800-line tech support). You save over 20 seconds each compile; and 
you can automate as with a CC.EXE or MAKE. 

AutoIndent - Save keystrokes and increase style consistency. Use the editor’ s 
default indentations or modify them to your taste. 

Template Editing - Get the full structure of a programming construct on- 
screen and move the cursor from one “fill-in-the-blanks” location to the 
next. 

Error to Error Tracking - Use “next error” to move to the next appropriate 
line. Display error messages in a separate window - even when you add 
or delete code, BRIEF knows where to go. 

MultiWindow Editing - Keep different parts of the same file in horizontal 
or vertical windows. Put your header file in one, main function in another, 
current function in a third. Any size, any number. 

Macro Language - Completely readable and programmable, the macro 
language will be second nature for an experienced C programmer. Feel 
free to modify the macro source code included with BRIEF. 

And remember, BRIEF is a full featured editor that can be used with any 
language. User surveys indicate that even beginning programmers become 
productive with BRIEF in less than 30 minutes. Call The Programmer’s 
Shop and ask about UNDO (not undelete), Unlimited File Size, Tiled & 
Pop-Up Windows . . ., or ask for a detailed product description that will 
tell you why BRIEF can’t be beat. PCDOS $195 


800-821-2492 Circle no. 305 on reader service card. 
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8:30 AM - 8:00 PM EST. 





_C Function Library - includes 325 fundamental functions with readable source and — 
thorough documentation. 






__No matter what you have, you need these. Best value available. Highly 


Call for Your FREE C Programmer’s Directory 


800-421-8006 


THE PROGRAMMER’S SHOP™ 
128-D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 8/86 





A NEW C STANDARD FOR SCREENS AND WINDOWS: | 
C-SCAPE 


Setting a new standard for screen generation, C-scape turns your Dan 
Bricklin Demo Program screens into C code instantly. You can capture 
existing screens from 1-2-3, Turbo, or that old BASIC diehard and convert - 
them to C in seconds. C-scape can save you immense effort and reduce 
errors for both new program development and language conversion pro- 
jects. 

C-scape is a combination screen generator and library of input/output 
functions that provides an advanced and powerful ability to create differen 
types of menus, input fields, help screens, and text with unprecedented 
speed and flexibility. Tiled, pull-down, and pop-up windows of virtually 
any depth (limited by RAM) are a key feature, along with scrolling, ful 
color and type support, and individual key or field validation. 

Because C-scape is based on C’s printf statement, you can embed the 
commands for screen positioning and field definition right inside your 
format string. This helps you produce clear, readable code, which is easie 
to maintain and change. 

Since full source code is provided, the standard library routines can be 
tailored to meet your exact screen layout and keystroke handling 
requirements. 

All C programmers will benefit from C-scape’s readable, intuitive syntax, — 
based on an extension of C’s printf function. Beginners will learn by study- — 
ing code generated from captured screens. Advanced programmers will 
enjoy C-scape’s ease of maintenance. Power programmers will appreciate — 
the free source code provided at no additional cost upon registration. 

Oakland Group, Inc. features free updates, an on-line bulletin board : 
for users, and toll-free technical support at 800-233-3733 (800-BEE-FREE) ~ 
or 617-491-7311. 

Escape the pitfalls of coding from scratch, and free up your time for 
creativity and productivity. Buy C-scape now and take advantage of the 
31-day review period: satisfaction guaranteed or your money back. No 
royalties. No license fee. Lattice 3.0, Microsoft 3.0 & 4.0. 
Oakland Group, Inc. VU) PCDOS $149 
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FAST, Easy-to-Use Graphics, Royalty-Free: 
Essential Graphics 


Draw fast dots, lines, circles, arcs, rectangles, and box fills. Draw a 
bar or exploded pie chart or a shaded line graph with one function call. 
Use the font and clip-art manipulation routines with the 10 fonts included — 
(up to 8 simultaneously, or choose from over 500 other fonts and clip-art 
sets available. 

Essential Graphics provides fast animation and graphic windowing using 
GET and PUT, and generates compact code. Demonstration programs 
and comprehensive manual included. 

Supports IBM Color, EGA, and Hercules cards, Epson and Oki printers. 
Lattice, Aztec, C86, Desmet, MS C, others. No royalties. 















emma = 2()1-762-6965 PCDOS $219 — 
a_i 
Gm Circle no. 304 on reader service card. _ 





C DYNAMO! 
WINDOWING: Full C Source, No Royalties 
Power Windows and C Function Library 

Power Windows. covers all the bases: overlays, borders, 1-2-3 style or 
pop-up menus/help windows, zap instantly on/off screen, status lines, 
horizontal/vertical scrolling, color control or highlighting, word-wrap, 
files to windows, keyboard to windows. Powerful, easy to use, integrated 
error messages, thorough documentation. Supports IBM monochrome or _ 


corer MSDOS Only $119 - 













MSDOS Only $119 _ 






recommended! 


713-468-4412 


Entelekon 
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“T would like to mention that I appreciate 
the way that the Programmer’s Shop does 
business. It is indeed refreshing to be able 
to call and get answers that you can trust 
in, to questions on various products.” 
Donald E. Winters 
MIS Software Development Inc. 
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STRUCTURED PROGRAMMING 





| orth has been designed by pro- 
grammers who were using it, 
and so Forth’s design is responsive to 
programmers’ needs in small ways as 
well as large. Other languages don't 
seem to be quite so programmer- 
friendly. For example, I was sur- 
prised to read in an article about 
Modula-2 (by this column’s own Na- 
mir Shammas) the complaint that the 
underscore character was not al- 
lowed in names. How did Modula-2’s 
designer conclude that programmers 
are helped by disallowing some char- 
acters in names? In my heart of 
hearts, I suspect that the rule was for 
the benefit of the compiler writers, 
not the compiler users, and exempli- 
fies fitting the task to the program 
rather than the other way around. 
This type of programming focuses on 
what is easy now (for the program 
writer), not what is easy over the life 
of the program (for the program 
users). 

Service workers must always fight 
the tilt toward serving themselves be- 
fore the clients of their profession. 
College administrators who bemoan 
the loss of serenity when students re- 
turn to the campus, shelf stockers 
whose tempers flare when custom- 
ers disorganize displays by buying 
items from them, and programmers 
who have had it up to here with fig- 
uring how to help the endlessly con- 
fused user—all should remind them- 
selves of the point of the enterprise. 

Programmers using a particular 
language pray that its developers 




























by Michael Ham 


kept in mind that they were writing 
for programmers and made their 
first objective easing the program- 
mer’s life, not their own task. The 
programmer users hope that the lan- 


© 1986 by Michael Ham. All rights 
reserved 
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Naming Names 


4 Fortran 
a 





guage developers, weary of consider- 
ing all the ins and outs of implemen- 
tation, did not finally throw in the 
towel and say, ‘“This will be good for 
you, really. You'll like not being able 
to use underscores. Anyway, you'll 
get used to it.”’ 

In Forth, any character can be used 
in a name—well, almost any. Blank 
doesn’t work because it is the name 
delimiter, and carriage return 
doesn’t work because it marks the 
end of the line. Generally speaking, 
however, Forth is not picky about the 
characters you want to use. 

Some standard usages have 
evolved in which some characters 
represent a class of tasks. A word be- 
ginning with a period normally dis- 
plays information: .DATE, for exam- 
ple, can be assumed to display the 
date, .NAME a name, -S the stack (ab- 
breviated because so often used), 
.FILENAME a file name, and so on. The 
greater-than symbol is often used for 
“‘to’’—to indicate movement (>A 
puts a character from the data stack 
onto the return stack, R> takes it off 
the return stack and returns it to the 
data stack) or transformation (S>D 
converts a single-precision number 
to a double-precision equivalent, 
>JULIAN converts a date to a Julian 
date). The symbol ? denotes a Boolean 
flag, and in a program in which 


names are carefully chosen, its 
meaning is obvious. For example, 
STOP? would leave a flag true, mean- 
ing stop, and 2STOP would consume a 
flag true, causing a stop. 

Code Example 1, below, shows atiny 
tool YES? that collects a yes/anything 
response and leaves a true flag if the 
user answers yes. The word suggests 
a yes response (hence the name) by 
displaying Y as the default answer. 
YES? uses CAP to capitalize any lower- 
case input before checking whether 
it wasa Y. 

Some of these name patterns come 
from conventions, but conventions 
are more successful when they rec- 
ognize and reinforce usage than 
when they attempt to create it. Rush- 
ing the process or trying to fence it in 
with rules does not lead to better re- 
sults more quickly but merely frus- 
trates and confuses the evolutionary 
movement. Forth gives the program- 
mer complete freedom in naming, 
and the conventions for naming 
emerge gradually. 

Other languages give the compiler 
writer the authority to decide the 
sorts of names that would be good for 
programmers (or, possibly, good for 
compiler writers) with the result that 
some characters fall beyond the pale 
that pens the programmer. ‘You 
want underscores in the name? That 
sort of thing isn’t done in Modula-2. 
Don’t be perverse.’’—the mark of 
bluestockings, ready to ease their life 
by adding difficulties to yours. Fight 
back. Use Forth. 


Some programming languages 
build in conventions through tactics 
such as precedence rules. One popu- 











Code Example 1: Two tiny tools 


: CAP (c — C ) DUP 96 ) OVER 123 ( AND IF BL — THEN ; 


: YES? ( — £— ) ASCII Y EMIT 8 EMIT { backspace ) 
KEY CAP DUP ASCII Y¥Y = SWAP 13 = ( cr? ) ORDUP 
IF ASCII Y ELSE ASCII N THEN EMIT SPACE ; 
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lar language has upward of 20 prece- 
dence rules. It’s too many. The doctor 
in John Barth’s novel End of the Road 
(New York: Avon Books, 1964) sug- 
gests to Jacob Horner that three will 
suffice: “ ‘If the alternatives are side 
by side, choose the one on the left; if 
they're consecutive in time, choose 
the earlier. If neither of these applies, 
choose the alternative whose name 


begins with the earlier letter of the 
alphabet. These are the principles of 
Sinistrality, Antecedence, and Alpha- 
betical Priority.’ ”’ 


Of course, it is always legitimate to 
propose rules. Ideas can be stimulat- 
ed through discussion, but their ac- 
ceptance should ultimately be based 
upon experience, not fiat. ‘To demon- 
strate that I am willing to entertain 
rule proposals, I offer the following 
suggestions for naming conventions 
for the arithmetic operators. 

The names of the arithmetic opera- 
tors are perhaps inescapably pedes- 
trian. Forth requires a variety of 
names because data are not typed 
and thus the operators are. Operators 
come in several flavors: single preci- 
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80386 


SOFTWARE DEVELOPMENT TOOLS 
The Phar Lap 80386 Software Development Series: 


(MS-DOS®) $495 
Full-featured macro assembler and linker. Includes a de- 
bugger and 32-bit protected mode runtime environment. 


(MS-DOS®) $895 
(MS-DOS®) $895 


The wait for professional software development tools 
for the 80386 is over! Whether you are upgrading an 
existing IBM PC application to the 386, moving a 
mainframe application down to a PC, or writing the 
next PC best-seller, the Phar Lap 80386 Software 
Development Series is for you. It is an integrated line 
of products which provides everything you'll need to 
create and run 80386 protected mode applications 


Phar Lap Software, Inc. “The 80386 Software Experts” 
Cambridge, MA 02138 


sion, double precision, quad preci- 
sion, and mixed precision (operations 
in which the two operands are of dif- 
ferent precision, typically one being 
single precision and the other double 
precision). Happily, all the mixed- 
precision operators can be defined to 
take the lesser precision operand on 
top of the stack, the greater precision 
second on the stack. 

To simplify the discussion, let’s fol- 
low FORTH Inc.'s lead and call single- 
precision numbers singles and dou- 
ble-precision numbers doubles. There 
are no mixed-precision numbers, of 
course, only mixed-precision opera- 
tions (with a single and a double or a 
double and a quad as arguments). 

The precision of the result of an op- 
eration is another question. Normally 
sums and differences are assumed to 
have the same precision as the oper- 
ands that produced them, though 
that is not logically necessary: a sum 
of two singles could, for example, be 
a double. In multiplication you more 
commonly will want to allow the re- 
sult to be of a higher precision than 
the factors (the product of two singles 














(call) 
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SYSMAKE 
with advanced features from the 
new UNIX Version 8 


being a double, for example). And 
with division you might be content 
for the quotient to drop back a notch: 
double divided by single with the 
quotient a single. Note, however, that 
it seems best for the remainder to be 
accepted as a double even if the quo- 
tient is taken as a single. 

The sign lurks as the high bit of the 
binary representation of the num- 
ber, but unsigned numbers use that 
bit in its numeric meaning. Addition 
and subtraction do not need to distin- 
guish—the programmer can choose 
how to interpret the high bit when 
the result is displayed. But in other 
operations it can make a difference: 
is it 10 compared to 65,535 (10 is less) 
or 10 compared to —1 (10 is greater)? 
If an operation treats the high bit as 
number rather than as sign, the oper- 
ation is called unsigned. 

Ideally, the Forth names for the op- 
erators could offer the programmer 
some reliable signposts through this 
maze of options: single, mixed, dou- 
ble, unsigned, signed, incoming, out- 
going. The current crop of names 
was not designed to offer this kind of 
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STRUCTURED PROGRAMMING 
(continued from page 111) 


help. An alternative scheme is sug- 


gested in Tables 1 and 2, below. 
Table 1 contains a list of prefixes 
for the arithmetic operators, based 
on the precision of the operands. 
When both operands are signed, sin- 


gle-precision numbers, the operators 
are unadorned. Otherwise, the oper- 
ator names include information that 
describes the nature of the operands. 

Table 2 contains a list of suffixes. 
Just as the prefix describes the nature 
of the operands (the input), the suffix 
describes the nature of the result (the 
output). Again, a garden-variety op- 


Sign Assumption 
_ signed operands 
unsigned operands 
signed operands 
unsigned operands 
signed operands 
_ ae operands 





_ ao ner : 


operands 


___unsigned operands 
signed operands 
"unsigned operands 


Result 





single precision 
_ double precision 
single precision 
_ double precision 





Mixed-precision _ 


— precision 


_ single precision 
double precision 


double precision 
_ quad precision 











aot er Segeu ae factors producing a double product. _ 
j-precision factors (single and double), unsigned, with double prod- 


uct. By convention, the single-precision factor i is on top of the stack, ~ 


double under it. 


__ Mixed-precision factors (double and quad), inecigned. with quad product. 
_ Mixed-precision unsigned compare. The sense of the comparison is dou- 
ble > single, both considered as unsigned. _ 
Factors and result are all doubles, with quad-precision intermediate 
product (The */ operator always takes the intermediate product to the 
next higher level of precision. Because operators in the */ family have 
three operands, it seems best to avoid mixed precision on the input 


side.) - 


Factors and product all signed doubles. 
Single on top of stack, double beneath, with double-precision product, 


all signed. 


Two signed doubles divided, producing double as quotient. 

Two signed doubles divided, producing signed single as quotient. 
Double divided by single with single quotient, all signed. 

Two doubles divided, producing a double quotient and a double 


remainder. 


Table 3: Examples of operator names 
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erator that produces the natural re- 
sult (for example, an operation on 
single-precision numbers that pro- 
duces a single-precision result or on 
doubles that produces a double). This 
convention assumes that the ‘“‘natu- 
ral’ result for a mixed-precision op- 
eration has the higher of the preci- 
sions of the two operands. For 
example, the natural result of a sin- 
gle-double mixed operator is a dou- 
ble, and thus no suffix is used in that 
case. If a single-double operator pro- 
duces a single result, then it is named 
with a suffix S to show that the result 
is single precision. 

These names group double-preci- 
sion operators under D and mixed- 
precision operators under M. The af- 
fixes allow you to decipher the 
special qualities of an arbitrary oper- 
ator and also make it easy to remem- 
ber the operation names. Table 3 
shows a variety of operator names 
that test this scheme. 

Mixed precision normally is an is- 
sue only with the input because the 
output is normally only one number. 
The /MOD operators, however, pro- 
duce two numbers as output: a quo- 
tient and a remainder. Would it be 
reasonable to see mixed precision 
here, with the quotient being one pre- 
cision and the remainder another? 

In integer division, the max of the 
dividend and the divisor will be larg- 
er than the quotient and the remain- 
der, so if the dividend and divisor are 
both single precision, both quotient 
and remainder will be single preci- 
sion. The single-precision /MOD thus 
leaves single-precision results, and 
the issue does not arise. 

With D/MOD, however, the situa- 
tion is different. Dividing a double by 
a double might well produce a single. 
The remainder, however, could well 
be a double. Thus, you might want the 
operation D/MODM, two doubles pro- 
ducing a mixed result: a single-preci- 
sion quotient and a double-precision 
remainder. Mirabile dictu, the single 
is again on top of the stack, the double 
beneath. (Perhaps single numbers, 
weighing less than doubles, naturally 
float to the top of the stack.) You can 
use M as a suffix to indicate that the 
mixed precision is on the output side 
rather than the input: 


D*/MODM—three signed doubles, 
with quad-precision intermediate re- 
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sult, producing a mixed-precision re- 
sult: single quotient on top of stack 
and double remainder beneath. 
O*/MODM—three unsigned quads, 
with octuple-precision intermediate 
result, producing a quad remainder 
(second on the stack) and a double 
quotient (top of stack). 


The example O*/MODM is a grotesque- 
rie that you would probably never en- 
counter. It serves merely to illustrate 
that even novel operations can be de- 
ciphered easily with this scheme. 

If you accept that all M operators 
require the single number on top of 
the stack and the double beneath, 
you can define the following opera- 
tors that might be useful in mixed- 
precision situations. But beware of 
the syndrome of maniacal complete- 
ness, in which you define fistfuls of 
operators to complete a set of logical 
possibilities, even if those operators 
are seldom or never used. I suggest 
that these words be defined only in 
applications doing a lot of mixed-pre- 
cision calculation. In that setting, 
their descriptive names make the 
code more readable and thus justify 
their existence. 


MSWAP (dn-—nd) 


MOVER (dn—dnd) 
MNIP (dn-—n) 
MTUCK (dn—ndn) 


Some of the names I have suggest- 
ed for the arithmetic operators don’t 
match names in the 83 Standard. I see 
no problem in this; the names I pro- 
pose could be adopted and the older 
names kept as synonyms. Forth pro- 
grammers can be encouraged to shift 
to the new names by having a tiny 
speed penalty associated with the 
older names—for example, by defin- 
ing the older name as an alias of the 
newer name. Any speed penalty, 
however slight, is more than enough 
to make most Forth programmers 
switch to the faster name. 


The Toolbox 

This perhaps seems like a lot of atten- 
tion lavished on names, particularly 
for a publication whose title includes 
the phrase ‘‘software tools.’’ But 
names are an important part of a pro- 
gramming tool. In a well-designed 
hand tool, the grip gets serious atten- 
tion as the primary ergonomic inter- 


Dr. Dobb’s Journal, January 1987 


face, which plays a major part in de- 
termining the effectiveness of the 
tool. The programmer uses names 
and verbal constructs to manipulate 
the power of the computer. If those 
names and constructs fit well the 
habits of the mind, the task is done 
that much more easily. 

I have proposed new operators as 
well as new names. I believe that any 
Forth package should include as a 
standard component a complete set 
of double-precision operators, with 
quad-precision operators available as 
an extension for 16-bit Forths. Double 
precision is often needed when 
working with large numbers in 
which round-off errors must be min- 
imized, as in accounting applications. 
Sometimes (in 16-bit Forths) even 
double precision does not offer 
enough range and quad precision 
must be used. 

These are the double-precision op- 
erators I believe should be present: 


D+ D— D**D D/MOD D*/MOD D> 


D= D< 
2SWAP 2OVER 2DROP D2DROP 2DUP 
D2DUP 2ROT 
2, 2@ 2! 
2CONSTANT 2VARIABLE 


With these at hand, programmers 
can easily construct other double-pre- 
cision operators that might be needed: 
D/, D*/, DO=, DO>, and so forth. I 
suggest D2DROP instead of 4DROP and 
D2DUP instead of 4DUP because the for- 
mer show the intention with more 
clarity and less mental arithmetic. 

MMsSForth, published by Miller Mi- 
crocomputer Services, provides a dif- 
ferent (and complete) solution to the 
need for operators of higher preci- 
sion. Instead of offering optional 
quad precision, octuple precision, 
and so on, MMSForth generalizes the 
idea of integer precision. 

The Utilities option for Version 2.4 
of MMSForth includes an optional ex- 
tension called N-LEN*%. The N-LEN# op- 
erators parallel the usual number 
and stack operators and use the same 
names except that # is included as an 
identifier. All the operators (4+, 
#DUP, #OVER, <##, #48, #*/MOD, and 
so on) work by reference to the value 
of #PREC, which the user sets. 

#PREC specifies the number of cells 
to be used in the arithmetic opera- 
tions. Setting *PREC to 1 produces the 


normal single-precision operators, 
and setting *PREC to 2 produces the 
double-precision operators. But you 
can set it to arbitrarily high values to 
allow integer arithmetic of arbitrary 
precision. 

Do not think these operations are 
sluggish. Test routines included with 
the package time the computation of 
Fibonacci numbers and factorials. I 
computed and printed the 277th Fi- 
bonacci number in 1.08 seconds and 
the number 46! (46 factorial) in 1.50 
seconds (both on an IBM PC with the 
NEC V20 chip instead of the 8088). The 
number of (2-byte) cells of precision 
specified in these test routines was 50 
for the Fibonacci test and 540 for the 
factorial test. For most uses, 540 preci- 
sion seems more than ample. Allow- 
ing users to specify the number of 
bytes of precision they need is clearly 
a better solution than hand-tailoring 
operators of various precision. 

It should be noted that Version 2.4 
of MMSForth, which runs on the IBM 
PC and on the Radio Shack Model 4 
and equivalents, is a native-mode 
Forth, incompatible with the normal 
operating systems on those machines. 
When MMsSForth is used, it monopo- 
lizes the machine and its resources. 


Names, Names, Names 

One problem Forth programmers 
face on large projects or when work- 
ing as a programming team is the 
number of names that are generated. 
John James has called this ‘“‘the name 
explosion.’ Because Forth programs 
are best written as a collection of use- 
ful tools (short definitions with gen- 
eral utility), the situation is particu- 
larly acute. Compared to procedural 
languages, Forth systems have more 
names (shortness of definition) and it 
is more important to know them 
(general utility). 

Forth programmers generally 
agree also on the importance of find- 
ing the “right” name. The criteria for 
rightness vary, with one major divi- 
sion between those who prefer play- 
ful names and those of more serious 
mien. Both parties agree, however, 
that the best names accurately and 
immediately convey the idea of the 
word's function. Both parties prefer 
short names to long. And both find it 
difficult to get precisely the right 
name when names must be assigned 
continually. 
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UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant —C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular exp.. ssion search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 





The C Programmer's Assistant 


C TOOLSET & 


CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 


C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


Solution 
Systems ” 
335-D Washington St., 


Norwell, MA 02061 
(617) 659-1571 


Circle no. 152 on reader service card. 


Feel Constrained 
By PC BATCH Languages? 


You need OPAL, a rich, full-functioned executive shell 
language for the experienced programmer. 


Previously, you've had only limited 
capabilities with the batch exec 
languages available on the IBM PC. 
Now, OPAL frees you from the 
limitations and drudgery of BATCH, 
and other primitive executive languages. 


OPAL, as an interpretive language, 


makes it easy to program the control 
you need in your applications. 

And, OPAL’s compiler gives you 
even greater machine efficiency, 
when required. 


Functionally, OPAL is a flexible shell 
that offers a high degree of pro- 
gramming, featuring flow-of-control, 
Menu and Form screen definition, 
CALLs, DO statements, DATE and 
string functions, to name a few. 
OPAL is so complete, some users 
have used it for prototyping 

entire applications! 


Circle no. 361 on reader service card. 


Moreover, OPAL provides benefits 
through its synergy with DOS. 
OPAL understands how to work 
with and enhance your DOS 
environment. 


If you feel encumbered and con- 
strained by your current exec 
language, you NEED OPAL... 


“ony $169 


Texas residents add 6.125% sales tax 
Shipping $4.00 
MasterCard, VISA Accepted 


To order or receive more information: 


(214) 490-0835 


The Software Factory 
15301 Dallas Parkway 
Suite 750 LB 44 
Dallas, TX 75248 


IBM is a registered trademark of International Business Machines Corp. 
OPAL is a trademark of The Software Factory, Inc. 
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STRUCTURED PROGRAMMING 
(continued from page 113) 


The first problem is getting a good 


name. But then, once good (or even 
merely tolerable) names have been 
arrived at, they must also be remem- 
bered somehow and (in a team situa- 
tion) communicated. The Forth dic- 
tionary is not really a dictionary for 
humans: the names are not arranged 
alphabetically. Some versions of 
Forth provide words such as LOCATE 
or VIEW that work reasonably well— 
but only if you can remember the 
name to begin with (does anyone 
have a LOCATE and VIEW that work 
with wildcards?) and if the documen- 
tation (comments and shadow 
screens) is understandable and up-to- 
date—or, failing that, the source code 
is readable. 

The difficulty of using new words 
fluently is the same as the difficulty 
of speaking or writing a foreign lan- 
guage. Having to look up every word 
in a dictionary is insufferably slow. 
In a single-programmer shop, the 
programmer gradually learns his or 
her own language and becomes flu- 
ent in the tools he or she has created. 
But what is to be done in a multiper- 
son shop, with each programmer 
creating several names a day? Are 
there regular meetings wherein the 
programmers present their words to 
each other? Do they pass around a list 
of their creations for others to learn 
and use? Do they maintain an on-line 
encyclopedia? When a new pro- 
grammer joins the group, how is that 
person trained in the local language? 
How long does it take a programmer 
new to the group to become fluent in 
the special words that are in use? 

I am in the lone-programmer cate- 
gory, but I would be interested in 
hearing how multiperson shops han- 
dle the problem of names and the 
problem of promulgating the gener- 
al-purpose tools the programmers 
create. If you have found a working 
solution to this problem, do share it. 

I also would be interested in find- 
ing out how you lone wolves keep 
track of your own tools. Do you sort 
your tools into files, each file being a 
toolkit for a particular purpose? Do 
you use precompiled overlays as tool- 
kits? Do you keep all your words and 
their use in your head, or do you 
maintain some kind of written refer- 
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ence book—a dictionary, or thesau- 
rus, or encyclopedia? Let us in on 
your secrets. 


Fragility as Strength 

Once there was a contest to define 
Forth in 25 words or less. My defini- 
tion was ‘Forth is like the Tao: it is a 
Way, and is realized when followed. 
Its fragility is its strength, its simplicity 
is its direction.” I want to talk about 
the seeming oxymoron in this defini- 
tion: Forth’s fragility being its 
strength. 

Forth has no training wheels. If 
you tip over, you fall: the stack ex- 
plodes, the system crashes, whatev- 
er. The design decision in creating 
Forth was to remove safeguards to 
enhance performance. For program- 
mers accustomed to bulletproof com- 
pilers, this approach seems foolhar- 
dy. Why not have as much protection 
as possible? 

Protection of course imposes per- 
formance penalties, but perhaps 
even more important is the degrada- 
tion of the feedback. In high-per- 
formance machines, the flip side of 
responsiveness is sensitivity. The 
more the machine gives control to 
the operator, the more responsibility 
the operator must accept. The advan- 
tage of the operator taking control is 
that the operator becomes more di- 
rectly connected to what is happen- 
ing. This connection amplifies 
awareness and allows the mind and 
the tool to merge, providing the im- 
mediacy of feedback that more close- 
ly connects thought and action. The 
intimacy and control of such a con- 
nection is almost addictive, which is 
why people who have learned to 
work with such tools are so reluctant 
to abandon them. Racing-car drivers 
don't enjoy spending the day behind 
the wheel of a station wagon. 

Robert Berkey first pointed out to 
me how the Forth stack, leaving the 
arguments nakedly exposed, also lets 
the programmer see what is going 
on. Errors surface immediately— 
that’s the fragility—and, being dis- 
covered, are then corrected—that’s 
the strength. Merely because Forth is 
fragile for the programmer does not 
mean that the application programs 
are fragile. Indeed, the very degree to 
which errors will out during devel- 
opment makes the final product that 
much more robust. 
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Fragility often accompanies flexi- 
bility. The more options the machine 
or language offers, the more ways it 
can be used against itself (fragility), 
but the greater diversity of needs it 
can address and the more quickly it 
can be modified (strength). A me- 
chanical example is the Gossamer 
Condor, a_ successful human- 
powered aircraft. A key design deci- 


1000 0000 
Oxxx XXXX 


sion was not to attempt to make it an 
unbreakable machine but to make it 
as simple as possible, with every- 
thing visible and accessible. Let it 
break, as long as it is easy to fix. That 
simplicity also made it flexible in the 
sense that it was easy to modify, and 
in fact the Gossamer Condor’s success 
was based upon a process of iterative 
development familiar to Forth pro- 


No more data in this 51 2-byte block. ——rr—“‘a_—S—h 
Data field consists of as many bytes as specified by 1e number it in 
the low bit positions (and thus a maximum of 12 ). Thougt 


important for decoding, it i is worth noting oe the data bytes contain : 


: no duplicates. 
TX OK 





Data field consists of a single byte (the next bye after this flag), 


which is to be replicated as many times as the number i in the low bit | 
positions (and thus a maximum of 127 Sect oe 


Table 4: Flag bit structure 








( Work areas ) 
CREATE OUTAREA 20000 ALLOT 
OUTAREA 20000 ERASE 
CREATE INAREA 512 ALLOT 


( Pointers ) 
VARIABLE INBYTE 
VARIABLE OUTBYTE 
INPOINT 
OUTPOINT 


Flagmanipulation ) 
These use the encodingflags ) 
NEXTFLAG tf) 


oe F tne EE oan | 


INPOINTCa; 


(will contain uncoded image ) 
( size depends on application ) 
( work area for input blocks ) 


( current byte in work area) 

( current byte in output area ) 
{( — adr ) INBYTE 4 INAREA + ; 

{ — adr ) OUTBYTE a OUTAREA a 


{ next source byte ) 
c? next Epes eee ) 


(puts flagon the stack 


: BLOCKEND? (f-—f) 128 =: ( end of input block ) 
s REPLICATE? (££) 128 ANd; ( replicate next byte ) 
: CHARCOUNT (f—n) 127 AND; ( # of replications or ) 


( Replication ) 
REPLICATE ( f — ) 
INBYTE INCR 
INPOINT Ca 
OUTPOINT 
ROT 
CHARCOUNT OVER + SWAP 
DO DUP I C! OUTBYTE INCR LOOP 
DROP 
INBYTE INCR ; 


( Move ) 

: MOVECHUNK ( £— — ) 
CHARCOUNT DUP INBYTE INCR 
INPOINT OUTPOINT ROT CMOVE 
DUP INBYTE +! OUTBYTE +! - 


( Actual decoding of block ) 
: BLOCKWORK 


( # Of bytes tomove ) 


( replicates based on count infl ag ) 


( move past theflag ) 
(chartoreplicate) _ 

( destination address ) 
(bringflagtotop) © 

{ indices = address range , 
( oo & eouee > 


( to next £1 ag location j 


( moves # of chars oe inflag ) 


( move characters ) 
( update pointers ) 


( decompress the run-length encoding ) 


BEGIN NEXTFLAG DUP BLOCKEND? NOT OUTBYTE 9 20000 ( AND 
WHILE DUP REPLICATE? IF REPLICATE ELSE MOVECHUNK EEN 


REPEAT DROP (flag); 


Code Example 2: Decoding run-length encoded data 
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STRUCTURED PROGRAMMING 
(continued from page 115) 


grammers. (The best account of the 


development of the Gossamer Con- 
dor and its sibling the Gossamer Alba- 
tross is the book Gossamer Odyssey 
by Morton Grosser [Boston: Houghton 
Mifflin, 1981)). 

In this spirit, tools for developers 
typically lack the safeguards that 
programmers provide in application 
programs: DROP, for instance, doesn't 
check stack depth before trying to 
drop. Such a check would slow it 
down too much. The programmer is 
responsible for making sure that the 
program will always have something 
on the stack when DROP is used. 

On the other hand, some safeguards 
don’t cost much. Paul Simon pointed 
out in a letter that the defining word 
FOR, which appeared in this column 
in July 1986, could include an error 
check with no speed penalty. 

In its final version, FOR expects two 
numbers on the stack and will crash 
the system if it is executed with an 
empty stack. This behavior, perfectly 
acceptable when FOR was mine 


alone, becomes arguable when FOR is 
promulgated as a tool for general use. 
It is easy to provide some protection. 
The simplest approach is to include 
at the beginning of FOR’s definition 
(right after CREATE) this phrase: 


DEPTH 2 < ABORT” Need both array 
type and number of slots” 


The speed of the words defined by 
FOR is unaffected by this additional 
check. On the whole, putting in this 
bit of protection seems reasonable. 
Moreover, as Forth is an open-archi- 
tecture language, those who don't 
want to spend the memory space on 
the error message can remove the 
check. After all, they might reason, if 
FOR fails, it is during development, 
when the developer can immediately 
correct the condition. At run time 
(when the end-user is running the ap- 
plication program), it is not FOR but 
the words defined by FOR that are 
used, and they, of course, will work 
fine. 

Though I tested FOR for suitability 
as a tool for other programmers (as a 
tiny application program), I never 


Brand New From Peter Norton 
A PROGRAMMER’S EDITOR 







Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 









Why & As 





The Norton Editor™ is a trademark of Peter Norton Computing, Inc 


Peter Norton Computing, Inc., 2210 Wilshire Boulevard, 
Santa Monica, CA 90403, 213-453-2361. Visa, 
Mastercard and phone orders welcome. 


C 1986 Peter Norton Computing 


_ that’s Aehtning fast with the hot 
features programmers need 


“NORTON 
EDITOR 


**This is the program- 
mer’s editor that I wished 
I’d had when I wrote my 
Norton Utilities. You can 
program your way to 
glory with The Norton 





Circle no. 243 on reader service card. 
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recognized the problem of what hap- 
pens when the stack is empty. My 
oversight occurred because I fell into 
the vulgar error of testing to show 
that the routine works instead of 
viewing as a failure any test that fails 
to find a bug. 

Glenford J. Myers observes in The 
Art of Software Testing (New York: 
John Wiley & Sons, 1979) that the pri- 
mary difference between successful 
and unsuccessful test efforts is that 
single, critical definition: a successful 
test is one that finds a bug; a test that 
finds no bug is a failure. And Gerald 
Weinberg's enjoyable book The Psy- 
chology of Computer Programming 
(New York: Van Nostrand-Reinhold 
Co., 1971) points out that a program- 
mer trying to find errors in his or her 
own work is unlikely to be success- 
ful, which is why independent test- 
ing is so important. 


Run-Length Decoding 

I close the column with a brief discus- 
sion of run-length decoding. One 
way of compressing data is run- 
length encoding. There may be vari- 
eties of this technique, but the one I 
ran across was as follows. 

The data are stored in 512-byte 
blocks, coded in variable-length data 
fields. Each data field has as the first 
byte a flag that determines the type 
of field and the length of the field. 
The flag’s bit structure determines its 
meaning (see Table 4, page 115). 

The words in Code Example 2, 
page 115, decode such encoded data. 
In this particular application I knew 
that the decoded data would not ex- 
ceed a length of 20,000 bytes. Each 
coded block is read in turn into the 
512-byte input work area and is then 
decoded into the next available area 
of the output work area. 

The pointers INPOINT and OUT- 
POINT keep track of where you are in 
the two areas. The flag-manipulation 
words take care of all flag interpreta- 
tion. REPLICATE replicates, and MOVE- 
CHUNK moves a chunk of data. 
BLOCKWORK decodes the block and is 
used within a loop that reads each of 
the 512-byte input blocks into the in- 
put work area in turn. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 7. 
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'S CATALOG 





just released! 


G A UNIX-LIKE SHELL 
FOR MS-DOS 


Allen Holub’s new book includes an enhanced version of 
his popular Unix-like Shell. You'll learn how to write shells 
applicable to MS-DOS, as well as to most other 
programming environments! 
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DR. DOBB'S CATALOG 


NEW! DR. DOBB’S BOUND VOLUME 10 


Bound Volume #10: The year of living dangerously. In 1985, 
iconoclastic DDJ beat Apple to the goal of adding more 
memory, a SCSI port, and a hard disk to the Macintosh. We 
dared to criticize the much-praised Turbo Pascal, challenged 
the Unix establishment with plans for a free Unix, and asked 
hard questions about privacy and control in the Information 
Age. Of course we also kept the technical level high, with the 
most exhaustive review ever of programmers’ editors and of C 
compilers, and with powerful software tools in C, Modula-2, 
Forth, Pascal, assembly language, and Prolog. 


Item #020D $35.75 








Bound Volume #1: 1976 The working notes of a 
technological revolution. Before there was an Apple, DDJ put a 
programming language on the first microcomputers, and 
became chronicler and instrument of the microcomputer 
revolution. 


Item #013 $30.75 


Bound Volume #2: 1977 Running light without overbyte. 

By year two the formula was clear: serious technical questions 
handled with a minimum of reverence; much source code; and 
a commitment to tight coding. 


Item #014 $30.75 


Bound Volume #3: 1978 The roots of Silicon Valley 
growth. The S-100 bus was hashed out in DDJ’s pages. Steve 
Wozniak and others published in DDJ code that would help 
build an industry. 


Item #015 $30.75 





Bound Volume #7: 1982 Legitimacy. DDJ observed the 
IBM phenomenon, reviewed MS-DOS and CP/M-86, and 


igs looked forward to fifth-generation computers. 
civilized. DDJ published a gold mine of tips, tricks, and Item #019 $35.75 


algorithms. 


Item #016 $30.75 


Bound Volume #4: 1979 In the midst of the gold rush. 
Three years before IBM moved in, the neighborhood was less 


Bound Volume #8: 1983 Power tools. Professional 


Bound Volume #5: 1980 Cand CP/M. 1980 saw an all- software development on a PC was getting easier; DDJ helped, 
CP/M issue, including Gary Kildall’s history of CP/M, and with Small-C, the RED editor, and an Ada subset. 
Ron Cain’s original Small-C compiler. Item #020 $35.75 


Item #017 $30.75 
Bound Volume #9: 1984 Shaping things to come. In 1984 


Bound Volume #6: The First of Forth. This was the DDJ examined new programming environments: Prolog, expert 
year DDJ launched its first Forth issue and Dr. Dobb’s Clinic. systems, Modula-2, and a $49.95 Pascal. Plus Allen Holub’s 
Plus: PCNET, the Conference Tree, and 6809 Tiny BASIC. © GREP, Unix internals, and two encryption systems. 

Item #018 $30.75 Item #020B $35.75 


SAVE! ORDER THE COMPLETE 10 VOLUME SET! 


Receive all ten Bound Volumes for only $262! You save $65! 


Item #020E $262 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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DR. DOBB'S CATALOG 





DR. DOBB'S C TOOLBOX 


DR. DOBB’S TOOLBOOK OF C 


Over 700 pages of C material, including articles by such C ex- 
perts as Kernighan and Ritchie, Cain and Hendrix, Skjellum 
and Holub! The level is sophisticated and pragmatic. The most 
valuable part of the Toolbook to many will be the hundreds of 
pages of useful C source code, including: Jim Hendrix’s famous 
Small-C Compiler and New Library for Small C—Also avail- 
able on disk!; NEW! Hendrix’s Small Mac: An Assembler for 
Small C and Small Tools: Programs for Text Processing—Both 
also available on disk!; and all of Anthony Skjellum’s C Pro- 
grammer’s Notebook columns distilled by Tony into one 
thought-provoking chapter. 

From M&T Publishing and Brady Communications 

Dr. Dobb’s Toolbook of C Item #005 $29.95 


SMALL-C COMPILER 


Jim Hendrix’s Small C Compiler is the most popular piece of 
software published in Dr. Dobb’s 11-year history. Like a home- 
study.course in compiler design, the Small-C Compiler and the 
Small-C Handbook provide everything you need but the com- 
puter for learning how compilers are constructed, and for learn- 
ing C at its most fundamental level. 


Small-C Compiler Item #007 $19.95 


SMALL-MAC: 
AN ASSEMBLER FOR SMALL-C 


This assembler features simplicity, portability, adaptability, 
and educational value. The package includes: a simplified mac- 
ro facility; C language expression operators; object file visibili- 
ty; descriptive error messages; and an externally defined in- 
struction table. 

You get the macro assembler, linkage editor, load-and-go load- 
er, library manager, CPU configuration utility, and a utility to 
dump relocatable files. Documentation is also included. 

For CP/M systems only. Please specify format. ; 
Small-Mac Item #012A $29.95 


SMALL-TOOLS: 
PROGRAMS FOR TEXT PROCESSING 


This package of programs performs specific, modular opera- 
tions on text files, including: editing; formatting; sorting; merg- 
ing; listing; printing; searching; changing; transliterating; copy- 
ing; concatenating; encrypting and decrypting; replacing spaces 
with tabs and tabs with spaces; counting characters, words, or 
lines; and selecting printer fonts. 

Small-Tools is supplied in source code form only. With the 
Small-C Compiler you can select and adapt these tools to meet 
your own needs. Documentation is included. 


Small-Tools Item #010A $29.95 





Dr. Dobb’s Journal, January 1987 


THE SMALL-C HANDBOOK 


Jim Hendrix’s Small-C Handbook is the reference book on his 
Small-C Compiler. In addition to describing the operation of 
the compiler, the book contains complete source listings to the 
compiler and its library of arithmetic and logical routines. 
A perfect companion to the Hendrix Small-C Compiler avail- 
able from DDJ on disk, the Handbook even tells you how to use 
the compiler to generate a new version of itself! 
While both the Handbook and the Toolbook provide documen- 
tation for the Small-C Compiler, the Handbook contains a 
more detailed discussion and is available with addendum for 
the MS/PC-DOS version. 
From M&T Publishing and Brady Communications 
The Small-C Handbook Item #006 $17.95 
The Handbook with MS/PC-DOS Addendum 

Item #006A $22.95 


C DISK FORMATS. 

When ordering, please indicate MS/PC DOS or CP/M. For 
CP/M disks, please specify one of the follwing formats: Apple, 
Osborne, Kaypro, Zenith Z-100 DS/DD, 8” SS/SD. Special 
order formats are available for an additional $10 each. 


SPECIAL PACKAGES 
20% OFF 


CP/M C PACKAGE 


Receive this special package and save $20! 

You'll get: Dr. Dobb’s Toolbook for C; The Small-C Hand- 
book; The Small-C Compiler on disk; The Small-Mac assem- 
bler on disk, with documentation; and The Small-Tools text- 
processing programs on disk, with documentation all for only 
$99.95! 

Please specify format. 


CP/M C Package Item #005A $99.95 


MS/PC-DOS C PACKAGE 

Save $20 when you order this special package. 

You'll receive: Dr. Dobb’s Toolbook of C; The Small-C Hand- 
book with the MS/PC DOS Addendum; The Small-C Compil- 
er on disk; and The Small Tools text-processing programs on 
disk, with manual all for only $82.95. 

MS/PC-DOS C Package Item #005B $82.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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TURBO PASCAL TOOLS 


TURBO ADVANTAGE: SOURCE CODE 
LIBRARIES FOR TURBO PASCAL 


Here’s the advantage you need to make your programming 
easier and more efficient! This library of 220 routines, complete 
with source code, sample programs and documentation, will 
save you hours developing and optimizing your programs. A 
few of the helpful Turbo Advantage files include: 

* arithmetic operations * bit manipulations * check routines 

* data compression * differentiation and integration * Fourier 
analysis and synthesis * file management and hash methods 

* Input/Output routines * matrix processing * menu functions 
* MS-DOS support * linear and nonlinear optimization 

* screen/printer redefinition * sorting routines * spline 
integration, differentiation, interpolation * statistical 
procedures * string processing * type conversion 

All procedures and functions are supplied in source code form 


TURBO COMPLEX ADVANTAGE: 
COMPLEX NUMBER ROUTINES 
FOR TURBO PASCAL 


Working with complex numbers, vectors and matrices is easy 
with Turbo Advantage Complex! This library of over 80 
procedures and routines will help you program complicated 
functions more easily. You'll find routines to help you: 


* use digital filters, solve boundary-value problems and 
process very large arrays; 

* carry out vector and matrix calculations with complex 
integers and variables; 

* execute time-saving simultaneous Fourier transforms and 
calculations of convolution and correlation functions. 


The Turbo Complex package includes source code and 
documentation. For MS-DOS systems. Some of the Turbo 
Complex routines are most effectively used with routines 
contained in the Turbo Advantage package. 

Item #071 $89.95 
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so you can adapt them to meet your needs. Each file contains a 
list of relevant routines, all explained with example programs to 
help you understand the callings, parameters and data types in 
detail. Most of the programs can be immediately compiled. 
The detailed manual includes a short characterization of the 
routine, a description of the way the routine works with an 
explanation of the methods used, the calling sequence— 
including a description of the parameters and the function 
result, notes with advice and special explanations, and a simple 
example illustrating the files and variables needed. 


Turbo Advantage is for MS/PC DOS systems. 
Item #070 $49.95 


TURBO DISPLAY ADVANTAGE: 
FORM GENERATOR 


FOR TURBO PASCAL 


Now, even if you have little programming knowledge, you can 
design and process forms to fit your needs! The Turbo Display 
form generator includes a text editor, 30 time-saving Turbo Pas- 
cal procedures and functions, and a concise, informative hand- 
book to help you take full advantage of all Turbo Display 
capabilities. 


Turbo Display includes source code and documentation. For 


MS-DOS systems. Some of the Turbo Advantage routines are 
necessary to compile Turbo Display. 
Item #072 $69.95 


TO ORDER: RETURN THE FORM AT THE END OF THE CATALOG, OR 
CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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TURBO PASCAL TOOLS 


THE TURBO PASCAL 
TOOLBOOK 


The Turbo Pascal Toolbook contains an extensive library of 
routines and sample programs to help make your programming 
easier and more powerful. Let Turbo Pascal experts show you 
how to easily integrate the routines into your own programs. 
Innovative sample programs demonstrate exactly how the 
routines are implemented. 


¢ Mathematical Expression Parsers offers two routines that 
convert mathematical expressions into RPN-tokens. 


¢ The Spiderweb Database Structure presents a new database 
routine that combines the best features of the B-tree, B+ and 
Bet + trees: 


¢ When Turbo Isn’t Enough presents an extensive library of 
low-level routines that show you how to tap into the hardware 
and the operating system. 


¢ Artificial Intelligence Techniques includes three programs 
that demonstrate ways to implement a user-friendly system. 


¢ Window Management will help you create, sort and overlay 
windows. 


¢ A Smart Regression Model Finder automatically searches for 
the best regression model to analyze a given set of data. 


The routine libraries and sample programs in The Turbo 
Pascal Toolbook are also included on disk for MS-DOS 
systems. All source code is included. 


The Turbo Pascal Toolbook Item #080 $25.95 
The Turbo Pascal Toolbook with disk Item#081 $45.95 


STAT TOOLBOX 
FOR TURBO PASCAL 


The STAT TOOLBOX is two statistical packages in one! 
Whether you’re a programmer looking for tools to build your 
own applications, or a user who wants a complete, fully func- 
tioning package, the STAT TOOLBOX will bring convenience, 
power and versatility to your statistics programs! 

The STAT TOOLBOX is written in Turbo Pascal and includes 
full source code. It contains two complete packages: 


A reference disk and manual 

Flexible, time-saving building blocks allow you to customize 

statistical applications to fit your needs. You’ll find: 

e statistical distribution functions; 

¢ random number generation; 

¢ basic descriptive statistics 

¢ parametric and non-parametric statistical testing. 

¢ bivariate linear regression, multiple and polynomial 
regression 

e automatic best curve selection 


A demonstration disk and manual 

The demonstration package includes fully functioning statisti- 
cal programs, and two data management programs. In addition 
to these practical tools, files containing sample data will help 
users learn to enter, edit, maintain and manipulate data. 

High resolution graphics capabilites include drawing histo- 
grams and regression lines, and plotting residuals for regression 
analysis. (Borland’s Turbo Graphic’s Toolbox is required) 

For IBM PC’s and compatibles. Turbo Pascal version 2.0 or lat- 
er, and PC-DOS 2.0 or later are required. 


Stat Toolbox Item #050 $69.95 








Dr. Dobb’s Journal, January 1987 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 
CALL TOLL-FREE 1-800-528-6050 EXT 4001 
AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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THE DR. DOBB’S TOOLBOOK SHELF 


Z80 TOOLBOOK 


David E. Cortesi, longtime Dr. Dobb’s columnist brings you: 


. a method of designing programs and coding them in as- 
sembly language. Cortesi walks through the initial 
specifications, designing an algorithm and writing the 


code. He demonstrates the construction of several useful programs. 
- a complete, integrated toolkit of subroutines for arithmetic, 


for string-handling, and for total control of the CP/M file 
system. They bring the ease and power of a compiler’s run- 
time library to your assembly language work, without a 
compiler’s size and sluggish code. 


- Every line of the toolkit’s source code is there to read. 


ORDER THE Z80 SOFTWARE ON DISK! 


All the software in Dr. Dobb’s Z80 Toolbook—the programs 
plus the entire toolkit, both as source code and object modules 
for both CP/M 2.2 and CP/M Plus—is yours on disk! 

Most of the programs are included in the book, however, the disk 
is necessary for complete listings. A Z80 microprocessor and a 
Digital Research International RMAC assembler or equivalent 
are required. 


Dr. Dobb’s Z80 Toolbook 


Dr. Dobb’s Z80 Toolbook w /disk 
Please specify one of the following disk formats: 8” SS/SD, 
Apple, Osborne, or Kaypro 


DR. DOBB'S 
TOOLBOOK OF FORTH 


This comprehensive collection of useful Forth programs and tu- 
torials contains DDJ’s best Forth articles, expanded and revised 
along with new material. In addition, you’ll glean important in- 
sights about the potential of this increasingly popular language 
from the many in-depth discussions of advanced Forth topics. 
You'll find sections on: 


Mathematics in Forth, including “Series Expansion in 
Forth,” “Forth Floating-Point Package,” and “Signed 
Integer Division” 

Modifications /Extensions, including “A Proposal for 
Strings in Forth,” “‘Non-Deterministic Control Words,” 
“Some Forth Coding Standards,” and “Towards a More 
Writable Forth Syntax” 

Forth Programs, including “GO in Forth,” “Elements of a 
Forth Data-Base Design,” ‘““The Forth Sort,” “SEND & 
RECYV,” “Interface for a Mouse,” “Relocating Loader in 
Forth,” “‘Forth Decompiler,” ““Screen-Oriented Editor 
ReVisited,” “‘Evolution of a Video Editor,” “H-19 
Screen Editor,” and ‘““The Conference Tree.” 





122 


Item #022 $25 
Item #022A $40 





Forth—the language, including ‘The Forth Philosophy,” 
“Teaching Forth as a First Language,” and “Forth-83 

and Vocabularies” 

Implementing Forth, including “Forth and the Motorola 
68000,” ‘A 68000 Forth Assembler,” ““A Forth Assem- 
bler for the 6502,” and ““Z8000 Forth.”’ You’ll also find 
Appendices that will help you convert fig-Forth to Forth- 
83, and tell you how to stay up-to-date on the latest de- 
velopments and refinements of this popular language. 


The screens in the book are also available on disk as ASCII 
files. Receive Dr. Dobb’s Toolbook of Forth, along with the 
software on disk, together for only $39.95. 


Dr. Dobb’s Toolbook of Forth Item #030 $22.95 
Dr. Dobb’s Toolbook of Forth w/Disk 
Item #031 $39.95 


Please specify MS/PC-DOS, Apple I, Macintosh, or CP/M. 
For CP/M disks, specify Osborne or 8” SS/SD. 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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DR. DOBB'S TOOLBOOK 
OF 68000 PROGRAMMING 


In this complete collection of practical programming tips and 
techniques for the 68000 family, you’ll find the best articles on 
68000 programming ever published in Dr. Dobb’s, along with 
new material from 68000 experts. You’ll learn about the most 
important features of the 68000 microprocessor from a full de- 
scription and concise discussion of its history and design. And, 
useful applications and examples will show you why computers 
using the 68000 family are easy to design, produce and 
upgrade. Contents include: 


an Introduction to the 68000 Family 

e 68000 Instruction Set 

Development Tools 

¢ Bringing Up the 68000: A First Step 

¢ A 68000 Cross-Assembler 

Useful 68000 Routines and Techniques 

¢ A Simple Multitasking Kernel for Real-Time Applications 
e The Worm Memory Test 

e A Mandelbrot Program for the Macintosh 


All programs are available on disk! 
In addition, an executable version of the 68000 Cross-Assem- 
bler can be purchased along with the source code and documen- 
tation for $25. (Requires one or more disk drives and either 
CP/M-80, CP/M 2.2 with 64 bytes or MS-DOS with 128 
bytes) 
Dr. Dobb’s 68000 Programming Toolbook Item #040 $29.95 
68000 Toolbook with Disk Item #041 $49.95 
Please specify one of the following disk formats: CP/M 8”, Os- 
borne, Macintosh, Amiga, Atari 520st, MS-DOS 
68000 Cross-Assembler Item #042 


$25 
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Taming 
MS-DOS 


Tools and techniques 


for customizing the 
MS-D0S environment 


Thom fegag 





BE paaamns wnt Soee Code me BtAe ot Bik 


IAMING MS-DOS 
BY THOM HOGAN 


Learn how to make DOS work for YOU! Taming MS-DOS will 
take you beyond the basics, picking up where your DOS manual 
leaves off. You’ll find batch files and DOS enhancements that 
extend the power of DOS so you can work more accurately and 
efficiently. And, you’ll learn how to customize DOS to fit YOUR 
needs, saving you time and frustration every time you use it. 
Taming MS-DOS will show you how to create a memory-resident 
clock, rename subdirectories and change file attributes. You’ll 
learn more about what’s on your disk and how to protect it easi- 
ly, how to create configurable AUTOEXEC.BAT files and un- 
derstand redirection and piping. You'll find: 

¢ how to customize CONFIG.SYS and use 

ANSLSYS to change the appearance of DOS 

extensive batch file coverage 

¢ example routines using redirection, including redirection op- 
erators, filters, and pipes 

DOS enhancement programs that are ready to use, with exe- 
cutable commands. 

Full source code, allowing you to alter programs and create a 
custom system. 

The book includes assembly language programs that allow you 
to manipulate DOS at its lowest form. An assembler is not 
needed to enter the programs; Taming MS-DOS presents an 
alternative method for anyone with BASIC on their machine. 
The programs, including batch files and DOS enhancements are 
also available on disk along with source code. 
Taming MS-DOS Item #060 
Taming MS-DOS with disk Item #061 


$19.95 
$34.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
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WRITING A UNIX-LIKE SHELL FOR MS-DOS 


This book will show you how to write shells applicable to MS- 

DOS as well as to most other programming environments. The 

book and disk include an in-depth description and enhanced 

version of Holub’s popular Unix-like Shell, along with 
complete C source code. You'll find: 

¢ how to do interpretive control flow in any C program; 

ea thorough discussion of low-level DOS interfacing; 

¢ significant examples of C programming at the system level. 

The Shell’s NEW supported features include: 

NEW! READ Lets you use input from the keyboard from 
within the Shell script. 

NEW! A new Shell variable expands the contents of a file 
sO a program can produce text that is used inside of 
the Shell script. 

Editing Command-line editing with the cursors is supported. 

The line is visible as you edit it. 

Aliases Can be used to change the names of commands or as 

very fast, memory-resident, batch files. Nested aliases are 

supported. 

History You can execute previous commands. The command 


can be edited before being executed. Imbedded history requests 


(Bar; !!>foo) are supported. 

Redirection and Pipes <> >> >& >>&!| 

Pipe temporary files can be put on a RAM disk. 

Unix-like Command Syntax/ can be used to separate directory 
names (\ can now be used as well). A 2048-byte command line 
is supported. Command-line wild card expansion. Multiple 
commands on a line. 

DOS-compatible prompt support 

$d $t H$h $n $q $$ $% 

C-Shell Based Shell Scripts (batch files) Shell Variables are 
macros that can be used on the command line. Arithmetic 
manipulation of shell variables using the @ command are 
supported. The following C operators are also supported: ( ) + 
—*/% <= >= <> != ==! &&ii = 

A batch file can call another batch file like a subroutine. 
Control is passed to the second file an then back to the first 
when the second is finished. Batch files can return values to the 
calling file using the exit and $status mechanisms. 


A powerful, interpretive, programming language, based on the 
UNIX C Shell, is now supported, including: 
if /then /else foreach break 
while switch /case ‘continue 
All commands can be nested. 
The shell runs on IBM PC’s and compatibles. 


Writing a Unix-like Shell for MS-DOS 
book & disk Item #163 $39.95 









ZUTIL 


/Util is a collection of UNIX-like utility programs for MS-DOS. 
This package includes updates of the highly acclaimed Dr. 
Dobb’s articles; Grep: a UNIX-like Generalized Regular Ex- 
pression Processor, and LS and Getargs from DDJ’s C Chest. 

Source code is included and all programs (and most of the 
utility subroutines) are fully documented in a UNIX-style 
manual. You'll find executable versions of: 


cat echo mv rm 

cp grep p rmdir 

date ls pause sub 

du mkdir printenv chmod 

/Util Item #161 $29.95 


TO ORDER: return THE FORM AT THE END OF THE CATALOG, OR 


CALL TOLL-FREE 1-800-528-6050 EXT 4001 


AND REFER TO PRODUCT ITEM NUMBER, TITLE AND DISK FORMAT 
Dr. Dobb’s Journal, January 1987 








ORDER NOW! 


NAME 


(Please use street address, not P.O. Box) 





errr ea ee EET TO ORDER: 
cny STATE ZIP CALL TOLL FREE 800-533-4372 
(Mon-Fri, 8-5 Pacific Time) 
DAY PHONE In Calif; 800-356-2002 
Or, return your order and payment to: 
For disk orders, please indicate format. Refer to ad for standard format M&T Publishing, 501 Galveston Dr., Redwood City CA 94063 
availability for each product. Special formats available for additional $10 each. 
[JMS/DOS ()CP/M —_. Zenith Z-100 DS/DD 7 
C) Macintosh —— Kaypro ——— Osborne —— Amiga 
()Apple II — 8"SS/SD Apple __. Atari 520st 
QUANTITY ITEM # DESCRIPTION UNIT PRICE TOTAL PRICE 


SUB-TOTAL 
CA residents must add applicable sale tax on merchandise total ______ sd % —_——————_ > SALES TAX 
Shipping must be included with order. See rates below. ———>_—_——___________» SHIPPING 


TOTAL ORDER 





(0 VISA NAME ON CARD 
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(.] AMERICAN EXPRESS EXPIRATION DATE 


{-] CHECK (make checks payable SIGNATURE 
to M&T Publishing) 





In US. For Bound Volumes, add $3.25 per book. Add $9.25 for Special C Packages. For other books and disks, add $2.25 per item. 
Outside U.S. For Bound Volumes, add $6.25 per book surface mail. Add $18 surface mail for Special C Packages. For other books and 
disks, add $5.25 per item surface mail. Foreign airmail rates available on request. 


For Faster Service and reduced shipping costs, Europeans may order direct from: Markt & Technik, Buchverlag, Hans-Pinsel-Strasse 2, 
8013 Haar bei Miinchen. Call Germany 89-4613-221 for prices in Deutch Marks. 


PROMPT DELIVERY! DEALER INQUIRY WELCOME! 
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Advanced Extended Library 


» Convenient .LIB library file to link 
» Separate object files so only the code 


» Optimized for speed and code size 
» Requires Clipper, Winter ’85 or later 


s Entire source code, nothing withheld. 


Sr. 7 
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is at hand 
HELP/Control™ - an on-line help subsystem for the IBM-PC. 


Increases the value of your software. Save development time and money. 


HELP/Runtime. A few simple subroutine calls add context sensitive on-line help to your 
application. HELP/ Runtime includes tested interfaces for Microsoft C, Lattice C, Turbo Pascal, 
IBM BASIC (Interpreter and Compiler), Microsoft FORTRAN, IBM COBOL and assembler. It is 
distributed with demonstration programs in each language. 


HELP/Popup. Add a powerful help system to existing applications, even in dBase or 123, 
without reprogramming, even without a programmer. It may be memory resident, or, installed 
with an application, it terminates when the application exits, releasing its memory. 


HELP/ Generation. Use your favorite editor and our concise screen definition language to build 
your help files. Compile them into a help system usable by either HELP/Runtime or 
HELP/Popup. The package includes sources for sample help files illustrating such features as 
full-sized or windowed screens. 


HELP/Convenience. The screens include highlighted captions. The user selects a caption with 
the cursor control keys and advances to a new screen, just as with 123. 


HELP/Documentation. A detailed manual, both on-line and printed, for the documentation 
writer and programmer includes instructions which may be incorporated into the user manual. 


HELP/Environment. PC-DOS 2.0 or greater is required. HELP/Runtime requires 
approximately 9K for code and buffers for full size help screens. 


HELP/Pricing. The complete package (software, both manuals, and demo programs) costs 
$125.00 and includes a royalty-free license to add HELP/ Runtime to your applications and to 
make 25 copies of HELP/ Popup. A demonstration diskette, including the on-line manual, costs 
$15.00. A free update to Release 1.1 is available to registered owners. To order, or for more 
information (including dealer, multiple-copy and site-license pricing) call MDS at 207/772- 
5436. We accept MasterCard and VISA. 
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Tom Rettig’s Library © 


Prewritten Solutions to Programming Problems 


Clipper Edition 


Advanced Programmer’s Library 


actually used is added to your program’ s Functions are CALL procedures 


and 128K of additional memory 


Each edition comes complete with... 


Cleanly written, liberally commented, 


easy to modify, helpful for learning. easy to use, page-per-command. 


» Support by phone and electronic mail « Handy plastic reference card 
» No royalties or copy protection 


» Full money-back guarantee 


Over 175 functions; 55% written in C, 35% in Assembler, 10% in dBASE 


$99.95 per edition at dBASE/Clipper dealers or direct 


T Retti 9300 Wilshire Boulevard, Suite 470 
VA Ce ere Beverly Hills, CA 90212-3237, U.S.A. 
Associates 
Excellence in dBASE since 1982 


(213) 272-3784 = Telex: 4996426 RETTIG 
Source: BCR480 ® CompuServe: 75066,352 


dBASE and dBASE III PLUS are Ashton-Tate trademarks, Clipper is a Nantucket trademark 


Call or write for free product information 





Circle no. 175 on reader service card. 
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dBASE III PLUS Edition 


« Interface to C/assembler is fully com- 
patible with Clipper’s Extend system 


s Requires dBASE III PLUS, any version, 


» Documentation inserts for dBASE or 
Clipper manual. Accurate, complete, 


































Get a Grip 
on Assembly 
Language. 


The award winning 


Visible Computer: 
8088. hie 


C2 elem nd 
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Ne Sas 


The Visible Computer is a book and 
software combination for mastering 
the elusive skills of assembly lan- 
guage. PC Tech Journal took one look 
and made it their September ’85 
“Program of the Month.” 

It’s an animated simulation of the 
PC’s microprocessor that lets you see 
with your own eyes how assembly 
language works. You'll be using it as 
a debugging tool for years to come. 

It’s a tutorial. A lot of people think 
the 350 page manual is the best book 
on assembly language ever written. 

It’s 45 demonstration programs you'll 
execute with the simulator, from simple 
register loads to advanced programs 
that manipulate interrupts and perform 
file I/O. And what you'll learn applies to 
all 86 family proces- 
sors, including the 579.95 


80186 and 80286. _ not copy protected 














The Visible Computer for IBM PC/XT/AT and true 
compatibles. If your dealer doesn’t have it, order direct: 
Software Masters, 2714 Finfeather, Bryan, TX, 77801. 
(409) 822-9490. Please include $3.00 shipping. 

Bank cards accepted. 





-TVC takes you inside the 
processor as it executes programs. 


Software Masters” 


Circle no. 347 on reader service card. 


COLUMNS 


'd like to design a versatile, easy- 

to-use interpreted language, using 
occasional essays in this space to stim- 
ulate my own creative juices and get 
feedback from you. My approach to 
this project will be experimental, and 
the entire interpreter will be written 
in 680xx assembly language. Why? 
Because I love 680xx assembly lan- 
guage, and I like to noodle around 
looking for really efficient ways to do 
stuff. As my interpreted language 
comes together, I want to know what 
you think of it. If the ideas expressed 
here get your juices flowing, send me 
a letter. If you send me interesting 
enough letters, I'll include them 
here. I'd like this to be both an educa- 
tional project for interpreter design- 
ers and a general discussion of data 
handling in assembly language. 


Why an Interpreted 
Language? 

The nicest thing about an interpreted 
language is that it can be very interac- 
tive, and if it’s extensible and fast 
enough, it can be a real joy to work 
with. Forth is an example of the kind 
of language I’m talking about. I like 
Forth a lot. But the problem with 
Forth is that it’s too weird—lI find I 
have to think backward to use it ef- 
fectively, and I'd like to be able to 
think in my most efficient way—for- 
ward. Thus, because I’ve never seen a 
true interpreted language that satis- 
fies me, I want to design my own, 
with your feedback to help guide me. 


by Nick Turner 


Juggling Numbers 

In this first essay I want to talk about 
math; specifically, numeric formats. 
This is intended as both an introduc- 
tion to numeric representation (for 
those who may not have a lot of low- 
level practice) and as a source of in- 
spiration for experienced assembly- 
language programmers. I'll start 
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things off with asummary of some of 
the various numeric formats that 
have been used on computer sys- 
tems. This will be a general descrip- 
tion; more detailed stuff will come 
later on. I hope to make most of these 
formats available in the final 
interpreter. 


Simple Integers 
The simplest approach to computer 
math is to use integers. Though inte- 
ger (INT) math may initially seem 
rather limited, a surprising amount 
of complex calculation can be done 
with integers alone. On typical com- 
puter systems, there are usually 
three kinds of integers: bytes, words 
(two bytes), and long words (two 
words). Sometimes you might need 
extra-precision integers of eight or 
more bytes. I propose at least two 
kinds of integers for my interpreter: 
word size (INT) and long word size 
(LINT). Both would be signed values, 
with negative numbers expressed in 
two’s-complement form. Will I need 
double-long, 8-byte integers (DINT)? 
Simple math with integers is 
straightforward. The biggest advan- 
tage of INT math is speed. Overflow 
and underflow are typically the most 
important error conditions. The big- 
gest practical disadvantage of integer 
math is the inability to represent 
fractional values directly. Fractions 
can be represented by multiplying 
all the numbers in the system by 
some constant, but it requires extra 
time and programming. Besides, if 
the constant multiplier is a power of 
2, you ve just invented the next cate- 
gory: fixed-point numbers. 


THE RIGHT TO ASSEMBLE 


A New Project Is Born 


Fixed-Point Numbers 

A typical fixed-point (FIX) representa- 
tion allocates a number of bits for the 
integer portion of a value and an 
equal number of bits for the fractional 
portion. For example, you might use a 
4-byte long word in which the high- 
order word is the integer and the low- 
order word is the fraction. Some sys- 
tems use larger FIX formats with a 
whole long word for each portion, 
and a few systems have unequal dis- 
tributions of bits. In such cases, it’s 
usually the fractional portion that has 
fewer bits. I propose one FIX format 
for my interpreter (mostly for speed 
in calculations involving fractions). 
My FIX could be two long words—one 
for the integer and one for the frac- 
tion. The high bit of the integer por- 
tion would be reserved for the sign, 
and the rest would be an unsigned 
value. (This simplifies output of ASCII 
translations of the number.) 

FIX has the advantage of being able 
to deal with fractions, but it still has 
the problem of limited precision, es- 
pecially for small numbers. From 
here there are two directions in 
which to go. Which path a system 
takes depends on what the numbers 
will be used for. If the ability to rep- 
resent really huge or miniscule val- 
ues is more important than vastly 
precise representations, then float- 
ing point is probably best. On the 
other hand, if incredibly high preci- 
sion is necessary, you might choose 
what I call extended representation. 


Floating-Point Numbers 

By far the most frequent choice in 
typical systems is a floating-point 
representation (FLOAT), in which the 
value is divided into two subvalues: 
the exponent and the mantissa. The 
exponent represents the logarithm in 
base 2 of a number by which the 
mantissa is to be multiplied to create 
the actual value stored. For example, 
if the exponent is 4 and the mantissa 
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is 3, then the value might be 3 times 2 
to the fourth power, or 3 times 16, or 
48. In actual practice, the mantissa is 
almost always treated as a fraction. In 
the above case, the exponent would 
be 6 and the mantissa would be 0.11 
(binary), which is 3 (or 11 binary) 
shifted left twice. Note that the expo- 
nent really represents nothing more 
than the number of times the mantis- 
sa must be shifted to create the actual 
value. If the exponent is negative, 
you shift the mantissa to the right. If 
it’s positive, you shift it left. The man- 
tissa usually also has a sign bit, which 
governs the sign of the entire value. 

Now here's the tricky part about 
floating point: most FLOAT represen- 
tations nowadays have something 
called a “hidden 1 bit.” This means 
that the high-order bit of the mantis- 
sa, which is always a 1 bit in a proper- 
ly normalized FLOAT value, is “over- 
laid” by the sign bit of the mantissa or 
is omitted altogether. The cost of this 
1-bit saving is that the missing bit must 
be recreated every time a calculation 
is done. For systems with a hardware 
assist, such as the MC68881 floating- 
point math chip, this is trivial. Anoth- 
er tricky point is that the exponent is 
usually represented as an ‘“‘augment- 
ed” value—this means you must first 
subtract a certain number from it in 
order to get the actual exponent. The 
augment number is chosen such that 
an exponent of zero is represented as 
a bit field with only the high bit set. 
The result is that the exponent can be 
treated as a simple unsigned value, 
simplifying many calculations. 

For my interpreter, I propose the 
FLOAT formats used by the MC68881 
chip—specifically, the single, double, 
and extended representations, which 
I will call FLOAT1, FLOAT2, and 
FLOATX for my language. The reason 
is simple: I'd like to use the 68881 chip 
eventually. 


A Weird Extended Hybrid 

The last approach to numeric repre- 
sentation, and one that I’ve not seen 
used very much, is sort of a weird 
hybrid between floating point and 
fixed point. I call it extended repre- 
sentation (EXT), and it’s the only nu- 
meric format in my proposed system 
that uses variable-length fields. The 
basic concept is simple: a number is 
represented in full precision as a 
large field of 2-byte words, with a giv- 
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SPEED 
MEMORY 


for your Macintosh 


eedy | 
to Macintosh ompatibie hard — 
disk drives. Levco 20-meg Overdrive: 
is also available for those who want a 
reliable, internal hard drive. 


Macintosh” is @ trademark licensed to Apple Com 
are trademarks of Appie Computer, Odesta Corp., Mic 


MonsterMac, OverDrive and MacBreeze are trademarks of 
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C, BASIC, Pascal, dBASE, Modula-2 


rogramimers 


Sour ce Print makes your job easier by clarifying 


your source code! 





For the new low price of $97, you get 
all these valuable time saving features: 
The Index (cross-reference) lists vari- 
ables, functions, procedures, and fields. 
Structure Outlining draws lines around 
nested structures for you. Automatic In- 

dentation keeps listings and 
source code uniform. 
The Table of Contents 


oe Sane 


words can be printed 

in boldface. Functions and procedures 
, can be extracted to build a new source 
file, or when printing. Multistatement 

- " BASIC lines can be split for readability. 

: The easy-to-use menu requires no 

i. learning period. Scroll thru directories. 

g - Search for files containing a given string— 
. great for finding that “lost” procedure. 













Tree Diagrammerf shows 


you the forest as well as the trees! 


Our new TREE DIAGRAMMER, for only 
77, automatically prints an organization chart of 
our program showing the hierarchy of calls to 
functions, procedures, and 


‘“ Occasionally, @ 
utility comes 
g that makes 
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Laboratories Inc.  — 


_ Mainframe- quality Software for the PC 
3339 Vincent Rd., Pleasant Hill, CA 94523 
: 415-930-8966 
_ SOURCE PRINT and TREE DIAGRAMMER handle 


__upto 50 source files and 60,000 program lines. 
__ ForIBM PC and all compatibles, 256K. 
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THE RIGHT TO ASSEMBLE 
(continued from page 127) 


en number of words representing 
the integer portion (except the high- 
est order bit, which is the sign bit) and 
the remainder representing the frac- 
tional part. Of course, there must also 
be a field somewhere that contains 
some Clue as to where the radix point 
is (the radix point separates the inte- 
ger from the fraction). It’s also impor- 
tant to have a value that says how 
long the whole thing is. 

The EXT format has certain advan- 
tages for a limited set of problems. 
For instance, I’ve always wanted to 
be able to compute various irrational 
values to an arbitrarily high preci- 
sion. My EXT format can do this, but 
problems arise. For example, as soon 
as you attempt to calculate a tran- 
scendental function, you run into 
precision vs. time trade-offs: if you 
use the traditional polynomial ap- 
proximation method, your polyno- 
mial factors will limit the precision of 
the result, which must then be 
chopped accordingly. On the other 
hand, if you use the full Taylor (or 
similar) series to compute the tran- 
scendental result, you may end up 
spending an inordinate amount of 
time to get the desired accuracy. I’m 
very interested in feedback on this is- 
sue; I have by no means reached a 
satisfying resolution. 


Do You Want More? 

If there’s a good response to this essay, 
I'll continue the story. Future topics 
might include a detailed expansion on 
each of the numeric formats de- 
scribed here, with listings of working 
math routines and a discussion of the 
“housekeeping” information sur- 
rounding the number formats—how 
does the system know what kind of 
number it’s dealing with and how 
does it keep track of all the variables? 
I'd also like to discuss the actual syntax 
and interface of the language—but 
first I'd like to see your blue-sky sug- 
gestions. What would your ideal in- 
terpreted language look like? Write to 
me care of DDJ. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 8. 
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Windows, Data Entry, Help Management, Menus, 
Text Editing, plus ... 






SOURCE CODE 
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With Vitamin C, your applications come 
alive with windows that explode into view! 
Data entry windows and menus become a snap, 
and context sensitive pop-up help messages 
are nearly automatic. 

With VCScreen, you'll save time by inter- 
actively painting windows and forms so what 
you see is what you get! Then, one button 
generates C source code ready to plug into 
your program and link with Vitamin C. 

Easy enough for the beginner. Versatile 
enough forthe professional. Vitamin C’s open- 
ended design is full of “hooks” so you can 
intercept and “plug-in” special handlers to 
customize or add features to most routines. 

Of course, Vitamin C includes all source 
code FREE, with no hidden charges. /t always 
has. That means you'll have everything you 
need to adapt to special needs without spending 
hundreds of dollars more. 


Create as many windows as you like with 
one easy function. Vitamin C automatically 
takes care of complicated tasks like saving 
and restoring the area under a window. 

Options include titles, borders, colors, pop- 
up, pull-down, zoom-in, 4-way scrolling, scroll 
bars, sizes up to 32k, text file display & editing, 
cursor display, and more. 

Unique built-in feature lets users move and 
resize windows during run-time viaa definable 
key. 

Access the current window by default ora 
specific window any time, even if it’s hidden or 
invisible. Save and load windows on disk for 
more versatility! 


Data Entry 


Flexible dBase-like data entry and display 
routines feature protected, invisible, required, 
and scrolling fields. Picture clause formatting, 
full color/attribute control, selection sets, single 
field and full screen input, and unlimited data 
validation via standard and user definable 
routines. That means you aren't locked into 
one way of doing things. 

Vitamin C even provides true right-to-left 
input of numeric fields with dynamic display of 
separators & currency symbols. 


Vitamin C 


It’s good for your system! 


High Level Functions 


Use our intergrated help management, 
multi-level menus, and text file routines, or 
build your own handlers using Vitamin C’s basic 
windowing and data entry routines. 


Standard help handler provides context 
sensitive pop-up help messages any time the 
program awaits key strokes. The help text file 
is stored on disk and indexed for quick access. 
So easy to use that a single function initializes 
& services requests by opening a window, 
locating, formatting, displaying, and paging 
through the message. 


Multi-level ‘‘Macintosh’”’ & ‘‘Lotus’’ style 
menus make user interfaces and frontendsa 
snap. Menus can call other menus, functions, 
even data entry screens, quickly and easily. 





Text editor windows can be opened for 
pop-up note pads, memofields, or general pur- 
pose editing. Features include insert, delete, 
word wrap, and paragraph formatting. 


VCScreen 


Screen Painter/Code Generator 


Just as Vitamin C’s reusable functions speed 
your programming, VCSreen makes it even 
faster and easier by automatically generating 
C source code for your data entry screens! 

With VCScreen’s interactive screen editor, 
you actually draw your forms. You can define 
input, output and constant fields, headings, 
boxes, lines and even a window for the form to 
run in. 

What you see is what you get. If you don't 
like the position of an object, just “pick it up” 
with the cursor and move it! Changing colors, 
attributes, copying, and deleting is just as 
easy. 

VCScreen generates readable C source 
code. It declares variables with names you 
provide and can even generate structures. 

With VCScreen choosing the right functions, 
parameters and sequences, and Vitamin C 
supplying the functions to choose from, you can 
stop worrying about semi-colons, matching 
braces, and calling conventions and concentrate 
on creating your application! 











30 Day 
Money Back 
Guarantee 


Better than a brochure. More thanademo 
disk. If you’re not satisfied, simply return 
the package within 30 days and receive 
a full refund of the purchase price. 


Vitamin C $225.00 


Includes ready to use libraries, tutorial, 
reference manual, demo, sample, and example 
programs, and quick reference card. For|BMPC 
and compatibles. Specify Microsoft, Lattice, 
Computer Innovations, Aztec, Mark Williams, 
Wizard, DeSmet, or Datalight C compiler AND 
compiler version number when ordering. 


VitaminC Source ... FREE* 


*Free with purchase of Vitamin C 


VCScreen 
Requires Vitamin C and IBM PC/XT/AT or 
true compatible. 


ALL ORDERS: 


SHIPPING: $3 ground, $6 2-day air, $20 
overnight, $30 overseas. Visa and Master Card 
accepted. All funds must be U.S. dollars drawn 
on a U.S. Bank. Texas residents add 6%% 
sales tax. 





For Orders or More Information, Call... 


(214) 245-6090 
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Creative Programming Consultants, Inc. 
Box 112097 Carrollton, Texas 75011 
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PROLOG and the 

Future of AI 

The following is an excerpt from a 
real-time conference held by Borland 
International on CompuServe on July 
26, 1986. A complete transcript of this 
three-hour on-line conference on AI 
and PROLOG can be found in DL6 of the 
Borland SIG on CompuServe (<GO 
BOR100> KEYWORDS:CONFERENCE). 


Larry Kraft, SYSOP of Borland SIG: 
Our panel of featured ‘‘speakers’’ to- 
day includes Borland’s president, 
Philippe Kahn; assistant professor 
Mark Chignell of USC, and Mike 
Swaine, editor-in-chief of Dr. Dobb’s 
Journal of Software Tools. The first 
part of this conference will consist of 
a panel discussion centered on nu- 
merous questions that were submit- 
ted in advance. Our first panelist to 
speak will be Mark Chignell. 


Mark: I'll start with a little informa- 
tion on my background in AI and 
PROLOG. I am an assistant professor in 
the Department of Industrial and Sys- 
tems Engineering at the University of 
Southern California. I have a Ph.D. in 
psychology and an M.S. in industrial 
and systems engineering. At USC I be- 
came interested in PROLOG as a prac- 
tical implementation language for AI 
applications in engineering. My cur- 
rent research is concerned with the 
development of human-computer in- 
terfaces in engineering design and 
on-line information retrieval. 

Here's the first question I’m going 
to answer: What is artificial intelli- 
gence? People usually point to smart 
computer programs and say, ‘“That’s 
Al.” In the early days of AI, 
1956— 1970, AI was thought of as a 
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process of domain-independent, gen- 
eral-purpose reasoning. More recent- 
ly, people have focused on domain- 
specific knowledge and the kind of 
heuristic reasoning that experts use. 
Perhaps the main unifying feature of 
all AI applications is the element of 
machine reasoning. In vision, for in- 
stance, the program is reasoning 
about how to update its model of the 
visual environment based on the sen- 
sory data. In planning, the program is 
reasoning about how to act on its 
model of the task environment so 
that a set of goals can be achieved and 
so on. (See P. McCorduck, Machines 
Who Think, for a historical introduc- 
tion to the issues faced by AI.) 


Philippe: Well, to me AI is what 
hasn't been done yet—once it’s been 
written, it’s called programs! 


Mark: Question: What are “‘true”’ AI 
applications? Perhaps the thing that 
distinguishes AI from other applica- 
tions is the need for symbolic reason- 
ing. In statistics, for instance, it 
wouldn't make much sense to use an 
AI program to find the straight line 
that had the best least-squares fit to a 
set of data. That task is already done 
well by numerical algorithms. In ma- 
chine chess, brute-force methods 
based on grinding through possible 
move sequences do yield fairly good 
results, but the problem of combina- 
torial explosion of search possibilities 
has led to an examination of how hu- 
man masters perform the task and 
has led to attempts to incorporate 
their knowledge representations and 
heuristics into chess programs. 


Philippe: Well, that is one way of 
typing things. ... On the other hand, 
I think that five years ago people 
would have called a resident, beep- 
ing spelling checker AI. 


Mark: I guess we have a difference of 
opinion here. I think it should be pos- 
sible to characterize AI independent- 
ly from the current status of technol- 
ogy. We should be moving toward a 
definition of intelligence that covers 
both humans and machines. 
Question: How can you tell if a pro- 
gram is intelligent? In today’s cli- 


mate, there is a tendency to assign 
the label AI rather liberally. Deciding 
on whether a program is intelligent 
is a particular case of the general 
problem of recognizing intelligent 
behavior. One method for establish- 
ing the intelligence of a program is a 
type of Turing test. If the perfor- 
mances of a program and of a person 
on a task that requires intelligence 
are virtually indistinguishable, then 
we assume the program is intelligent. 


Larry: Thank you very much, Mark. 
Mike, you’re up next. Go ahead, 
please. 


Mike: I’m Mike Swaine, editor-in- 
chief of Dr. Dobb’s Journal of Soft- 
ware Tools. My background includes 
graduate study in both human cogni- 
tion and artificial intelligence and 
three years reporting on AI and new 
technologies as a senior editor for 
InfoWorld. 1 am coauthor of Fire in 
the Valley, a history of the personal 
computer, and creator of.the fiction- 
al puzzle-detective Mr. Usasi. 

Question: What is declarative pro- 
gramming, and why would you 
want to use this type of program- 
ming? Declarative programming 
stresses static aspects of knowledge: 
facts about the world and rules about 
how the facts are connected. It con- 
centrates on representing these facts 
and rules, and it deliberately sub- 
merges all procedural details. These 
procedural details are nothing less 
than the entire control structure of 
the program—that is, what state- 
ment gets executed next or, in more 
conceptual terms, how to use these 
static facts and rules to answer ques- 
tions, solve problems, or derive new 
facts and rules. 

PROLOG, for example, uses the 
model of first-order predicate logic to 
represent the facts and rules about 
some domain of knowledge—such as 
U.S. geography—and submerges the 
procedural details in an inference en- 
gine, a mechanism that automatical- 
ly makes the necessary deductions 
from the facts and rules. To oversim- 
plify, using PROLOG means pouring 
facts and rules into the system, asking 
questions, and letting the system de- 
rive the answers from the informa- 
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tion you have supplied. You declare; 
it deduces. To the extent that declara- 
tive programming actually sub- 
merges the procedural details, it 
achieves one of the goals of what is 
called fifth-generation language de- 
sign: it allows the programmer to fo- 
cus on the problem rather than on 
the program. In implementing a geo- 
graphical database, for example, you 
can concentrate on facts about U.S. 
geography rather than on details of 
database design. 

Question: What are the advantages 
and disadvantages of declarative vs. 
procedural programming? The 
choice of a declarative or a procedur- 
al approach to solving a particular 
problem can depend on what kind of 
knowledge about the problem is 
most accessible. If you can gather the 
important facts and rules about the 
problem domain easily, then you 
should consider a declarative ap- 
proach. If it’s easier to specify the 
steps or techniques for solving the 
problem, then you should consider a 
procedural approach. Another con- 
sideration is consistency vs. efficien- 
cy. A declarative, first-order, predi- 
cate-logic-based approach can be 
trusted to be consistent; you won't 
get false conclusions from true pre- 
mises. But by giving up control over 
the way the program searches for so- 
lutions, you give up the option of 
fine-tuning the code for efficiency. A 
procedural approach lets you specify 
how to solve the problem efficiently 
but at the cost of introducing com- 
plexities that make it harder to trust 
the results. 

Question: Are PROLOG and LISP 
both declarative? No language is 
strictly one or the other, although 
most programming languages are 
mainly procedural. LISP can be 
thought of as declarative, but it’s a 
funny fit—LISP wants to be thought 
of as functional, and it’s old enough to 
be humored. PROLOG was designed to 
be used declaratively. PROLOG proba- 
bly gains in efficiency by not being 
purely declarative, but it pays for it in 
inconsistency because of extensions 
to the basic idea and, I think, to the 
way in which falsity is implemented. 


Philippe: Well, LISP really manipu- 
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lates functions, and I would call it 
procedural, just like its contempo- 
rary FORTRAN. 


Mike: OK. Next question: Why is PRO- 
LOG appropriate for writing expert 
systems, and what systems have 
been written in PROLOG? Last week I 
watched an expert systems ‘“‘knowl- 
edge engineer” being grilled by a 
roomful of skeptical C programmers. 
The C programmers all wanted to 
know “What do you do that can't be 
done in C?” The knowledge engineer 
had to admit that anything he did 
could be done in C and that in fact his 
company typically ported its prod- 
ucts to C for efficiency and portabil- 
ity. The programmers already knew 
these things, but it made them feel 
good to hear them. 

So why use PROLOG for expert sys- 
tems if you'll eventually rewrite 
them in C? Well, that’s almost like 
asking why use a graphics language 
for graphics processing. Expert sys- 
tems logically include certain compo- 


UNIX Tools on DOS 





HARVEST THE KORN 


Over 70 programs bringing elements of UNIX System V.2 to the 
world of DOS. Our tools enhance your efficiency on machines 
like AT&T 6300, IBM PC, XT, AT and compatibles. We offer: 


shell — Korn shell compatible — combines best features of 


Bourne & C shells 


vi — a detailed implementation of the UNIX full-screen editor 


awk — the only commercially-available version offering Bell Lab’s latest 


published specs 


cat chmod cmp comm cp 
dd dev df diff du 
file find head help join 
nm od paste pg prof 
sort split Strings tail time 


and much, much more... 


nents that are built into PROLOG—like 
an inference engine; like a natural 
mechanism for adding to the knowIl- 
edge base without rewriting the en- 
tire program. In fact, expert systems 
and PROLOG grew out of the same 
motivation: a desire to represent stat- 
ic knowledge in a computer pro- 
gram. Writing an expert system in 
PROLOG involves using some power- 
ful tools. Rewriting it in C means re- 
creating those tools. The latter may 
allow opportunities to optimize, but 
it also distracts attention from the 
real task. 

As of today, though, PROLOG is not 
the language of choice for develop- 
ing expert systems because of the 
past lack of a decent PROLOG pro- 
gramming environment. Of the hun- 
dreds of expert systems in nonaca- 
demic use in the U.S., nearly all were 
developed in some version of LISP, in 
a specialized expert-system-develop- 
ment language such as Teknow- 
ledge’s S.1, or in a conventional third- 
generation language such as C. (One 
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cpio ctags cut date 
echo ed egrep __ fgrep 
Ic Is more mv 
pwd rm sed size 
touch tr uniq wc 


Programs come with complete UNIX-style command-line file name expansion and are not 
copy protected. Phone support 9-6 EST. Full documentation is included. 


Price: $139.00 


Mortice Kern Systems Inc. 


43 Bridgeport Rd. E., Waterloo, Ontario N2J 2J4 


For information or ordering call collect: 


(519) 884-2251 


MasterCard & Visa orders accepted. OEM & dealer inquiries invited. 
UNIX is a trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 
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Circle no. 249 on reader service card. 
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THE SOFTSTRIP SYSTEM 


A CHOICE. 


Until now you were stuck with disks. 

No more. Install our unique STRIPPER™ software 
on your personal computer today and discover the 
many benefits of the fastest, easiest, least expensive 
way to handle information. 


STRIPPER lets you print— ON PAPER — your own 
machine readable Softstrip data strips using your dot 
matrix printer. The Softstrip System Reader reads that 
information into a computer rapidly. With STRIPPER 
and the reader, your PC and printer become part of 
the most versatile information handling system 
available. 

With this system you can do anything you wish with 
any data you have in your PC — ON PAPER. 


DATA ENTRY: Why use keystrokes when you can 
eliminate them with data strips? Whatever the 
document - invoices, packing slips, memos, letters, 
sales reports, the list is endless — simply print a data 
Strip right on the same printed page. Now you have 
a document that is both human readable and machine 
readable. A typical document can be entered in only 
15 seconds using data strips. And, it ends keystroke 
errors forever. 


DATA DISTRIBUTION: Why copy disks? It’s time 
consuming and expensive. Softstrip data strips will 
end all that. Simply photocopy as many data strips as 
you like and send them by mail. Data strips ignore 
folding, coffee stains, ink marks and, by the way, 
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magnetic fields. And if you’re using telecommunica- 
tions, you can stop making the phone company rich. 


DATA STORAGE AND RETRIEVAL: Why have a 
file of disks and a file of paper? Eliminate one with 
Softstrip data strips. File the data strip with the docu- 
ment. Better still, print the strip right on the document. 
Then put it in a file or binder. 

Retrieval is simple. To find existing data, pull the 
document and its related data strip from the file. 
They've been stored together. Then use the reader 
to enter the data. No more hassle trying to match 
documents with the right disk — if you can find it. 


DATA TRANSFER: Why bother with cables, 
modems and phone lines to move files between 
computers? A Softstrip data strip generated by an 
IBM PC can be read into another PC, or compatible, 
an Apple or even a Macintosh. If you work at home 
on a Macintosh, make a data strip on your printer, 
take it into the office and read it into your IBM PC. 
Simple. And we’ve created the utilities to let you do 
that easily. (See Application Notes on opposite page.) 


Fascinating, isn’t it? Anything you can do with disks 
can be done with the Softstrip data strip system — 
faster, easier and at lower cost — ON PAPER. 


All you need is STRIPPER software at $19.95 and 
the Softstrip System Reader at $199.95. 
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COMPUTER READABLE PRINT 


NOW! TRANSFER DATA — 
PROGRAM TO PROGRAM WITH 
SOFTSTRIP’ . 






Now you can move data between programs quickly and easily using ul TT Mh 
SOFTSTRIP data strips. 4 i ii ! 
PRA EST 
Using the Softstrip System, you can move data between computers and el 
such programs as WordStar and MacWrite, dBASE and AppleWorks, areal 
Lotus 1-2-3 and Excel and ReadySetGo and many others. aneAu 
qa 
We've created a series of several dozen Application Notes on Softstrip data ay 
strips. These lead you through simple steps to make the file transfer as tial Mi 
easy as possible, adding even more versatility to your personal computer ie ry 
when you purchase the SOFTSTRIP SYSTEM. The advanced system you've a yes 
been hearing so much about. Ae 
All you need to move data between programs is STRIPPER™ software at aa Hn 
$19.95 and the Softstrip System Reader at $199.95. eon 
* Neds ry * 
For acomplete list of Application Notes, contact your dealer or call Cauzin. ike M 


A comprehensive new book covering Turbo 
Pascal programming includes 15 pages of 
SOFTSTRIP data strips, enabling readers to input 
extensive programs using the SOFTSTRIP 
SYSTEM READER. 


Jeff Duntemann, author of “Turbo Pascal, Second 
Edition — Revised and Enlarged” convinced 
publishers Scott, Foresman & Co., to include the 
data strips as a service to readers. 


Some programs included in the book are lengthy — up to 800 lines. 
All 300K of listings are incorporated in the SOFTSTRIP data strips for 
easy entry with the Reader. An index indicates which files are contained 
in each strip. 


Duntemann said inclusion of the data strips will let readers soend more 
time learning the intricacies of working with Turbo Pascal and 
significantly less time typing in the various programs. 





Users’ Groups: Call for Special User Group Discounts. 


ACT NOW! Don’t delay. See your local Softstrip dealer or call us at This data strip contains 
1-800-533-7323. In Connecticut: 203-573-0150. IBM2MAC, a utility that 
runs on the IBM and 

For Europe and Asia Contact: converts an IBM file to 

CAUZIN Softstrip International, Ltd. sue ee 

835 South Main Street 53 Bedford Square 

Waterbury, CT 06706 London, WC1 B3DP England 

(203) 573-0150 01-631-3775 Telex: 263874SOFTST G 
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Finally, powerful graphics 
for Turbo Pascal! 


Announcing: 


TurboHALO Graphics! 


e 150 graphic primitives (based upon the powerful 
HALO primitives). 


e Graphics in up to 16 colors, in medium or high resolution, 
on 10 popular graphics cards— including IBM CGA 
and EGA, Hercules, and AT&T DEB. 


e Output to over 20 printers and plotters— including HP 
and Corona Laser and Apple Imagewriter. 


e 11 popular input devices supported. 


e Memory resident drivers require only 2K of Turbo Pascal 
code space. 


e These professional graphics programs use 
HALO Primitives: 


Drafix II— Foresight Resources 
CADKEY-— Micro Control Systems, Inc. 
Dr. Halo II— Media Cybernetics/IMSI 
CAD Master — Datagraphics 

Decision Master — Centec 

Artworks — West End Films 


e Speed, ease of use, multiple fonts and much more, for 
ONLY $129.00! NO ROYALTY FEES! 


COMPARE THE FEATURES! 
TurboHALO vs. Borland’s Turbo Grafix ToolBox: 


TurboHALO 
16-Color Support? Yes 


Feature Borland 


Full EGA Support? Yes 
Laser Printer Support? Yes 
Multiple Input Drivers? Yes 


Do Professional Programs 
Use Same Primitives? Yes 


Call Now To Order! 


™ 





1299 Fourth Street e San Rafael, California 94901 e (415) 454-7101 


Toll Free (800) 222-GRAF (Outside CA ) ¢ (800) 562-GRAF (In CA) 
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counterexample to keep you awake 
nights: Lockheed is using PROLOG to 
develop an expert system for the De- 
partment of Defense [DoD] to analyze 
electronic intelligence data to deter- 
mine “enemy intentions.) In Japan, 
PROLOG-based expert systems have 
been developed for (at least) medical, 
commercial, and engineering appli- 
cations. The new PROLOG implemen- 
tations coming to market may 
change this picture radically. 


Philippe: Well, in Europe, where 
PROLOG was born, PROLOG has been 
more widely used than LISP. Further- 
more, PROLOG is newer and younger, 
and it is just now picking up a lot of 
momentum. 


Mark: The two other panelists classi- 
fied LISP as a procedural language. As 
someone who has spent some time 
with the language, I feel some duty to 
defend it. LISP is really a language-de- 
velopment environment rather than 
a single language. Once you start 
writing functions, you can create 
your own language. LOGLISP is an ex- 
ample of a PROLOG-like language in 
LisPp—that is, declarative versions of 
LISP have already been written. Ob- 
ject-oriented languages have also 
been written on top of LISP. 


Mike: What does AI offer to the aver- 
age programmer or user? I'll give 
only one of the answers; maybe oth- 
ers will emerge from discussion. AI is 
the domain of exploration of new 
programming techniques. When 
they cease to be new, they cease to be 
Al, but they don't cease to be useful. 
Also, I'd like to point out that PROLOG 
may be a good prototyping language 
for anything, not just AI applications. 

I have a question. As editor-in-chief 
of a magazine for software develop- 
ers, lam interested in the interface— 
in the sense of the zone of transmis- 
sion—between the other two panel- 
ists’ areas of expertise. I’m curious 
about developments in AI labs that 
may lead to commercial products in 
the future. I haven’t been particular- 
ly prescient about this in the past. 
Having written a simple expert sys- 
tem in graduate school, I understood 
the principles. I had been following 
AI work closely when Teknowledge 





Dr. Dobb’s Journal, January 1987 


was founded and knew the creden- 
tials of its founders; nevertheless, I 
did not foresee the current success of 
expert systems. Expert system com- 
panies are beloved of investment 
capitalists. Teknowledge was one of 
the few sales winners in a recent San 
Jose Mercury News summary of the 
sales slump in Silicon Valley. I'd like 
to do better the next time. I'd like to 
be able to see the next area of com- 
mercial development and _ practical 
application of laboratory develop- 
ments in AIl—the next Big Thing. 
There is a tantalizing suggestion of 
what that might be... . 


Mark: That is a very good point, 
Mike. I think it is often hard for re- 
searchers to predict what is going to 
fly in the marketplace. If I were to 
make a bet, I would say that in the 
near term we may see a revolution 
on retrieval and utilization of infor- 
mation/knowledge using AI-based 
front ends. 


Larry: OK. Philippe’s turn for ques- 
tions. Philippe, I believe you have 
some opening comments? Go ahead. 


Philippe: First: My updated biogra- 
phy: Failed musician, mathemati- 
cian, relatively artificially intelligent, 
self-appointed “the software indus- 
try’s resident court jester’! Pops up 
unexpectedly anywhere. 


Larry: Now, | have the questions for 
Philippe. What plans are there to tie 
PROLOG to conventional databases? Is 
this a growing area of AI technology? 


Philippe: I don’t know whether it’s a 
growing area, but it should be very 
useful. The biggest problem people 
have with large databases, or in the 
AI world “knowledge bases,” is reen- 
tering data. The best thing is to be 
able to read and write ‘‘usual’’ data- 
base files. 


Larry: Next question: Is PROLOG a 
general programming language that 
can be used for a wide variety of pro- 
gramming applications or is it specifi- 
cally database-oriented? 


Philippe: Well, it is inference-orient- 
ed, if anything. With good exten- 
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sions, PROLOG can let you do different 
general things, but as with any tool, 
you need to use the right tool for the 
right job. If you use a hammer when 
you were supposed to use a saw, you 
might get into trouble! 


Alis 
the domain of 
exploration 
of new 
programming 
techniques. 


Mark: You know, there are close to 
two billion documents on-line in the 
world today. This is a huge amount of 
information, but it’s not really 
knowledge until you can distill the 
essential meaning. Perhaps the next 
big AI industry will be the replace- 
ment of much of the current knowl- 
edge-engineering effort with what I 


will call a “knowledge mining” ef- 
fort, looking to translate the current 
backlog of electronic information 
into usable knowledge bases. 


Philippe: There is much more in a lot 
of this information—things as simple 
as typesetting codes, tables of con- 
tents, indexes, cross-references, and 
so on. Millions of man-hours of edit- 
ing have gone into that stuff. It is 
much more than dumb data, at least 
in many cases. You still have to inter- 
pret it, but a lot of the work has al- 
ready been done. Take a book such as 
Roget's Thesaurus, for example. It di- 
vides the world into categories, and 
you can thus define a vector space in 
a given metric and talk of a much 
broader way to index data semanti- 
cally rather than through a keyword 
system. But as our old friend Kipling 
said, “This is yet another story!”’ 


DDJ 


Vote for your favorite feature/article. 
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The Advanced Programmer's Editor 
That Doesn't Waste Your Time 


e Fast, EMACS-style commands—completely reconfigurable 
e Run other programs without stopping Epsilon—concurrently! 


e C Language support—fix errors while your compiler runs 


e Powerful extension language 


e Multiple windows, files 


e Unlimited file size, line length 


e Great on-line help system 
e Regular Expression search 
e Supports large displays 


e 30 day money-back guarantee e Not copy protected 


Only $195 


L_tUqar-u 


Software Ltd. 


5740 Darlington Road 
Pittsburgh, PA 15217 


for IBM PC/XT/AT’s or compatibles 


Circle no. 135 on reader service card. 
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The fastest C 


Your search for execution speed is over. 
The new Microsoft®C Compiler Version 4.0 
is here. With blazing performance. We've 
added common sub-expression elimination 
to our optimizer that produces code that 
rips through the benchmarks faster than 
ever before. 


“..the Microsoft performance in the benchmarks 
for program execution is the best of the lot overall” 


— William Hunt, PC Tech Journal, January, 1986* 


But speed isn't the only edge you get with 
Microsoft C.Other advantages include a vari- 
ety of memory models like our new HUGE 
model that breaks the 64K limit on single 
data items. Plus our NEAR, FAR and HUGE 
pointers, which provide you greater flexibility. 
All this allows you to fine tune your program 
to be as small and fast as possible. 


“Excellent execution times, the fastest register 
sieve, and the best documentation in this review 
... Microsoft Corporation has produced a 
tremendously useful compiler.’ — Christopher 
Skelly, Computer Language, February, 1986. 


No more debugging hassles. 
Introducing CodeView. Free. 
Now, for a limited time, well give you an 
unprecedented programming tool when you 


buy Microsoft C, free. New Microsoft Code- 


View" offers the most powerful tool yet in 


— 
Macros 








the war on C bugs. Forget the hex dumps. 
Now you can view and work with programs 
at any level you want. Use the program 
source, the disassembled object code, or 


Microsoft C Compiler Version 4.00 
Microsoft C Compiler 


¢ Produces fast executables and optimized code including elimination 
of common sub-expressions. NEW! 
¢ Implements register variables. 
¢ Small, Medium and Large Memory model libraries. 
* Compact and HUGE memory model libraries. NEW! 
¢ Can mix models with NEAR, FAR and the new HUGE pointers. 
¢ Transport source and object code between MS-DOS® and XENIX® 
operating systems. 
¢ Library routines implement most of UNIX™ System V C library. 
¢ Start-up source code to help create ROMable code. NEW! 
¢ Full proposed ANSI C library support (except clock). NEW! 
¢ Large number of third party support libraries available. 
¢ Choose from three math libraries and generate in-line 8087/ 80287 
instructions or floating point calls: 
— floating point emulator (utilizes 8087/80287 if installed). 
— 8087/80287 coprocessor support. 
— alternate math package — extra speed without an 8087/80287. 
¢ Link your C routines with Microsoft FORTRAN (version 3.3 or 
higher), Microsoft Pascal (version 3.3 or higher) or Microsoft 
Macro Assembler. 
¢ Microsoft Windows support and MS-DOS 3.1 networking support. 
¢ Supports MS-DOS pathnames and input/output redirection. 


Microsoft Program Maintenance Utility. NEW! 
¢ Rebuilds your applications aftet your source files have changed. 
¢ Supports macro definitions and inference rules. 


Other Utilities 
¢ Library Manager. 
* Object Code Linker. 


¢ EXE File Compression Utility. 
* EXE File Header Utility. 
C Benchmarks 


In seconds 


Computer 
Microsoft Lattice Innovation Aztec Wizard 
C 40 C30 C23 C86 3.2 C30 
Sieve of 
Eratosthenes 
(register) 82.9 151.4 172.3 88.0 919 
Copy Block 86.9 2317 199.0 123.8 189.5 


Run on an IBM PC XT with 512K memory 


Microsoft CodeView 
Window-oriented source-level debugger. NEW! 


* Watch the values of your local and global variables and expressions 
as you debug. 

¢ Set conditional breakpoints on variables, expressions or memory; 
trace and single step. 

¢ Watch CPU registers and flags as you execute. 

¢ Effectively uses up to four windows. 

¢ Debug using your original source code, the resulting disassembly 
or both intermingled. 

¢ Use drop-down menus to execute CodeView commands. 

¢ Access the on-line help to lead you through CodeView's options 
and settings. 

¢ Easily debug graphics-oriented programs since program output is 
kept separate from debugger output. 

¢ Keyboard or optional mouse support. 


¢ Enter in familiar SY MDEB or DEBUG commands. 





*Reprinted from PC Tech Journal, January 1986, copyright 1986, Ziff-Davis Publishing. 


both at the same time. Open a window to 
view CPU registers and flags. Watch local 
and global variables as well. All while your 
program is running. 

CodeView gives you complete control. 
Trace execution a line at a time —using 
source or assembly code. Or set conditional 
breakpoints on variables, memory or expres- 
sions. CodeView supports the familiar 
SYMDEB command syntax, as you'd expect. 
Commands are also available through drop- 
down menus. Combine the new window- 
oriented interface with our on-line help and 
debugging has never been easier. Or quicker. 
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youve ever seen. 


Take the $5 CodeView tour. 

You may find it hard to believe our debug- 
ger can do all weve claimed. So were offering 
test drives. Five bucks will put you behind 
the wheel of a Microsoft C demo disk with 
CodeView.' See for yourself how fast debug- 
ging can get. 

For more information about the Code- 
View demo disk, the new Microsoft C 
Compiler, a list of third party library sup- 
port or the name of your nearest Microsoft 
dealer, call (800) 426-9400. In Washington 
State and Alaska, (206) 882-8088. In Canada 
call (416) 673-7638. 
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The High Performance Software 


Microsoft, MS-DOS and XENIX are registered trademarks and CodeView is a trademark of Microsoft Corporation. UNIX is a 
trademark of AT&T Bell Laboratories. IBM is a registered trademark of International Business Machines Corporation. TOffer expires 12/31/86. 


FORUM 
VIEWPOINT 


(continued from page 14) 


indeed a principle of classical logic. As 
such it does not support the former 
invalid inference. The assumption 
PROLOG makes is the altogether differ- 
ent assumption termed the closed- 
world assumption. PROLOG automati- 
cally assumes that any postulate set 
(knowledge base) is complete: if it can- 
not be derived that S, then it must be 
that not S. Thus PROLOG enshrines the 
fallacy dubbed by Spinoza as the argu- 
mentum ad ignorantiam: If it can’t be 
proven true, it’s false, and if it can't be 
proven false, it’s true. Of course it fol- 
lows that a proposition that can't be 
proven true or false is both true and 
false. Indeed, with the proper reposi- 
tioning of postulates (rules), PROLOG 
will answer “yes” and “no” to the 
Same query even though the postu- 
late set is consistent. 

The point is that if a system is not 
complete (there are such complete 
systems—real closed fields being an 
example), then the assumption of 
completeness made by PROLOG (built 
into its definition of negation) is false 
and will lead to fallacious inferences 


and contradictory inferences. The 
justification offered for PROLOG’s 
treatment of negation is that not 
means not known or not derivable. 
But this lame attempt at justification 
doesn't hold up. Neither the episte- 
mic nor the apodictic concept obey 
DeMorgan’s laws, whereas the truth- 
functional not in PROLOG does. 

It is simply not safe to use not unless 
it is pinned down toa range (for exam- 
ple, with the use of ON). Otherwise 
the negation logic needed should be 
provided by the programmer. Negat- 
ed sentences can be treated as units— 
for example, use of not-L instead of 
not L. The relationship between L and 
not-L and other negation relationships 
must be spelled out by the program- 
mer. The programmer must use (ei- 
ther not-L or not-K) instead of not(L 
and K ) and so forth. PROLOG never ac- 
tually transforms any of the rules in 
the knowledge base, which means 
that the programmer can provide the 
negation logic needed. 

Texts and manuals for PROLOG 
should be up front about PROLOG’s 


PL/I 
FOR PROS 


Your existing PL/I applications can run on 
today’s hot new workstations. 
Because LPI-PL/I runs under UNIX, you 


can move programs simply by recompiling— 


without re-programming. 


And, because it’s a 


true high-performance compiler, LPI-PL/I 
makes full use of the speed of those 


workstations. 


For more information, contact Language 
Processors, Inc., 400-1 ‘Totten Pond Rd., 
Waltham, MA 02154 (617) 890-1155. 





LPI-RPGII, LPI-COBOL, LPI-PL/I, LPI-BASIC, LPI-FORTRAN, LPI-PASCAL, LPI-C, LPI-DEBUG 


LPlisa trademark of Language Processors, Inc. UNIX is a trademark of AT&T. 


Circle no. 266 on reader service card. 


138 





limitations. It is not a full predicate 
logic in any direct sense. What PRO- 
LOG is is a negation-restricted, ex- 
panded logic of definition with mar- 
velous recursive powers. Properly 
billed, the foregoing facts about PRO- 
LOG's inconsistency and radical in- 
completeness merely become irrele- 
vant considerations based on a 
confusion about what PROLOG is sup- 
posed to be. Consider the very first 
problem with the introduction of a 
postulate declaring the transitivity of 
R. Considered as a definition, the pos- 
tulate violates the cannons of defini- 
tion by attempting to define R nonre- 
cursively in terms of itself. PROLOG 
can easily handle the introduction of 
a transitive relation when defined re- 
cursively. The transitive closure TR 
of a relation R is defined: 


TR(x y) if R(x y) 
TR(x z) if R(x y) and TRly z) 


The general theory of definition 
and the theory of recursive defini- 
tion can be given a rigorous syntacti- 
cal formulation—it would be inter- 
esting to see an exact syntactical 
formulation of the extension used by 
PROLOG. From a computer science 
point of view, this would amount to 
giving syntactical rules to rule out 
non-logic-based semantic errors (log- 
ic errors in the field of partial recur- 
sive functions cannot be ruled out by 
syntactical rules). 

The deductive-axiomatic method 
has been the central unifying meth- 
odology of knowledge of the West- 
ern intellectual tradition. By remov- 
ing the barrier to the real-time use of 
the deductive-axiomatic method, 
PROLOG may have an impact on 
knowledge use and acquisition that is 
hard to overestimate. After all, being 
able to query Aristotle, or Goethe, or 
Einstein with an updated database 
does give new meaning to the expres- 
sion deus ex machina. 

Those who package PROLOG 
should have the courtesy and integri- 
ty to say what it is and what it isn’t. 


DDJ 
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IS GETTING THE ANSWER TO 
SOFTWARE PROBLEMS 
A BIGGER PROBLEM THAN 
THE PROBLEM? 








Don't stay on hold prompt, written answers to your 
, , specific problems. You can 
when there's help online even talk with acetal 
from CompuServe’ \ software 


» developers. 









Software Forums. 







The new upgraded 
version of 
your software 
locks up. 


Adobe Systems; Aldus; Ashton- 


’ a eVSIY Tate’ Autodesk” Borland Interna- 
ime you vee po ge 
tional, Creative Solutions, Digital 
reboot, Research; Living Videotext; Lotus” 
Be iohs in Sou get stuck in the Inc., Microsoft; ° MicroPro® h Misosys 
P eo Inc: and Software Publishing” all 
You've chucked the manual, have CompuServe Soltware Forums. 


because you've done exactly what it 
tells you to do six times already. 
So you call the software company. 


And we keep 
adding 
more. 









Now you spend half a day beating 
your head against a brick wall of 
busy signals, ranting at recorded 
messages, hanging around on hold. 
And you still don’t get the solution 
to your problem. 


Meanwhile, progress is > stopped 
and your profits are 
dribbling away. But 
wait. There's help... 


Compusene S large subscriber 
base also puts you in touch with 
thousands of other, often more expe- 
rienced, users of the same software. 







Several prom- 
inent, progressive You'l find they can give you lots 
. of creative ways to get the most out 
software publishers ais cori 
recognize this y 
problem, and And software forums are the best 


way to learn about product updates, 
new product announcements, new 
ways to expand the uses of your soft- 
ware, and offer free uploads of your 
own programs. 


working with CompuServe. 
have developed a solution— 
CompuServe Software Forums. 


Now you can go online with 
experts from the companies that 


produced your software and get Our online electronic magazines 


...», asoftware problem 
wall , is a bigger 


getting answer's. 


frequently publish software reviews. 
And you can find help for many 
other software products in our other 
computer-related forums for IBM* 
Tandy; Atari; Apple; Commodore; 
TI” and others. 


The last thing you 
need when you've got 











s.. problem 


So, from now 
on, get ws 
prompt, 

informed 
answers on 
CompuServe Software ane 


To buy your CompuServe 
Subscription Kit, see your nearest 
computer dealer. Suggested retail 
price is $39.95. 


To order direct 
or for more 
information, 
call 800-848-8199 
(in Ohio, 614- 
457-0802). 


If you're 
already a 
CompuServe 
subscriber, 
just type 
GO SOFTWARE 
at any ! prompt. 











CompuServe’ 


Information Services, PO. Box 20212 
5000 Arlington Centre Bivd., Columbus, OH 43220 


An H&R Block Company 
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Artificial Intelligence 

ESP Frame-Engine is an expert system 
shell from Expert Systems Interna- 
tional. Designed for customized en- 
hancements, the shell uses frames 
that allow for rule-based and vari- 
able groupings as well as inheritance. 
Object-oriented programming is pos- 
sible with several types of objects 
such as numeric, Boolean, text, set, 
and instance. The shell’s open-ended 
architecture facilitates interfacing to 
Prolog-2, C, and other languages. 
Reader Service No. 16. 

Expert Systems International 

1700 Walnut St. 

Philadelphia, PA 19103 

(215) 735-8510 


The second edition of Experiments in 
Artificial Intelligence for Microcom- 
puters by John Krutch has been pub- 
lished by Howard W. Sams & Co. 
This edition contains 75 percent 
more material providing step-by-step 
procedures detailing how AI can be 
applied toa variety of practical activi- 
ties. Programs are provided in BASIC 
for the Commodore 64 and 128, with 
instructions for converting them to 
other BASICs. Reader Service No. 17. 
Howard W. Sams & Co. 

4300 W. 62nd St. 

Indianapolis, IN 46268 

(800) 428-SAMS 


Borland International has released 
an enhanced version of Turbo Prolog 
that provides more support for the 
development of large applications. 
The new version (1.1) has a faster 
compilation speed and an internal 
linker, with single-step compiling to 
executable files. It also requires less 
space in memory than the previous 
version. It costs $99.95 (free to regis- 
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tered owners of Version 1.0). Reader 
Service No. 18. 

Borland International 

4585 Scotts Valley Dr. 

Scotts Valley, CA 95066 

(408) 438-8400 


Languages 

CET Technology has released CET BA- 
SIC, a compiled application develop- 
ment language for Intel-based Unix 
and Xenix systems. The CET BASIC 
compiler is compatible with OASIS, 
THEOS, and UX-BASIC, and CET BASIC 
programs can be intermixed with 
programs and subroutines in other 
languages. Additional features in- 
clude multiuser support for ISAM, di- 
rect and sequential files, terminal in- 
dependence, error trapping, program 
chaining, and COBOL-like formatting. 
The CET BASIC compiler is available 
for $695. Reader Service No. 19. 

CET Technology Inc. 

5405 Garden Grove Blvd., Ste. 160 
Westminster, CA 92683 

(714) 895-4345 


Rational Systems has released In- 
stant C, an incremental C compiler 
that pares down development time 
by processing only those parts of a 
program that have been changed. 
The compiler incorporates a full- 
screen editor; source-level debugger; 
object code linker; source code 
checker; run-time checker; and sup- 
port for linking Lattice C, Versions 2.0 
and 3.0, and Microsoft C, Version 3.0, 
object code and libraries. It runs on 
computers with MS-DOS or Concur- 
rent DOS and costs $495. Reader Ser- 
vice No. 20. 

Rational Systems Inc. 

P.O. Box 480 

Natick, MA 01760 

(617) 653-6194 


Lattice now offers the SSP/PC library 
of more than 145 mathematical sub- 
routines for use in scientific, engi- 
neering, and statistical computations. 
The subroutines can be called from 
Lattice C and provide PC program- 
mers with routines similar to pack- 
ages used on mainframes. Most rou- 
tines yield a maximum machine 
accuracy of 15 significant figures. 
The SSP/PC library sells for $350. 


Reader Service No. 21. 
Lattice Inc. 

P.O. Box 3072 

Glen Ellyn, IL 60138 
(312) 858-7950 


Marshal Pascal from Marshal Lan- 
guage Systems is a code-optimized 
ISO Pascal compiler for MS-DOS, CP/M- 
86, and Concurrent DOS. The compil- 
er lets you address as much memory 
as your operating system allows, and 
it supports a variety of memory mod- 
els. Marshal Pascal costs $189. Reader 
Service No. 22. 

Marshal Language Systems 

1136-P Saranap Ave. 

Walnut Creek, CA 94595 

(415) 947-1000 


Lifeboat Associates has introduced 
a C++ language for micros. Advan- 
tage C++ provides extensions and 
enhancements, using C++ as a pre- 
processor to emit pure C code. C+ + 
allows you to design your own data 
types and enables you to use object- 
oriented programming methods. 
Versions of Advantage C++ are 
available for use with Lattice C, Mi- 
crosoft C, and other popular C com- 
pilers for $495. Reader Service No. 23. 
Lifeboat Associates Inc. 

55 South Broadway 

Tarrytown, NY 10591 

(914) 332-1875 


The Whitewater Group has released 
a new object-oriented programming 
language that incorporates Microsoft 
Windows. ACTOR is a fast and power- 
ful programming environment that 
uses Pascal-style syntax. DDE (Dynamic 
Data Exchange) has been implement- 
ed for Microsoft Windows to allow for 
the simultaneous transfer of informa- 
tion between separate programs on 
the same computer. ACTOR runs on 
the IBM PC, PC/XT, or PC/AT and sells 
for $495. Reader Service No. 24. 

The Whitewater Group 

Technology Innovation Center 

906 University PI. 

Evanston, IL 60201 

(312) 491-2370 


Workman & Associates has released 


FTL Modula-2 for MS-DOS. The soft- 
ware provides a complete language 
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WE JUST GOT 





MORE SOPHISTICATED 





SO YOU CAN GET 
MORE BASIC. 





e invented BASIC over 
20 years ago. 


Later, we re-invented it for 
micros as the True BASIC™ 
structured-programming language. 

And the idea was: To make program- 
ming as easy and natural as possible. 

So you could concentrate on what to 
program. Not how. 


Now there's True BASIC Version 2.0 for 
the IBM® PC and compatibles. Faster, 
more powerful and sophisticated than 
the original. 


MORE GRAPHICS. 


Right from the start, True Basic gave you 
terrific device-independent graphics. 
Built-in 2-D transforms. And support for 
multiple windows. 


Now we've added more graphics and 
full mouse support. 


So for the first time, you can create one 

program that will do superb graphics on 
CGA, EGA or Hercules displays. With- 

out worrying about additional drivers or 
overlays. And on the EGA, you can SET 
COLOR MIX to define your own colors. 
Use four shades of blue if you want (and 
make our competitors green with envy). 


MORE CONTROL. 


We always supported you with recursion, 
local and global variables and separately 
compiled libraries. 


Now you can have modules, too, the 
industrial-strength tool for building large 
applications. 


Using modules makes it easier for you 
to share data between routines. Build 
data structures. Then, if you want, hide 
them from other parts of the program. 
So you can always be free to focus on 
the task at-hand. 


Modules have their own initialization 
sections, so you can set up global vari- 
ables or turn on instrumentation. 


And, like other procedures in True 
Dr. Dobb’s Journal, January 1987 





BASIC, modules can be compiled sepa- 
rately and stored in a library where they 
can be shared by several applications. 
Or they can be loaded directly into the 
True BASIC environment as part of your 
customized workspace. So when you 
use True BASIC interactively, the mod- 
ules look like built-in functions. 


Modules made Modula-2 the successor 
to Pascal. Now they've put True BASIC 
one-up on all other BASICs. 


MORE SPEED. 


2.0 is 20 to 200 percent faster than True 
BASIC Version 1.0. Both compile times 
and execution speeds. And on some 
real-world benchmarks, we're faster 
than many native-code compilers. 


MORE POWER. 


Start with a complete matrix algebra 
package. 


Then, since we support the use of 640K 
for both code and data, add arrays as 
large as you want. 


Our compiled code is more compact than 
what other compilers generate, so there's 
more memory left for your application. 


We've enhanced our dynamic array 
redimensioning and improved our built- 
in 8087/80287 support, making True 
BASIC the most powerful number- 
crunching BASIC around. 


And if it's strings you crunch, we've 
added new string functions and raised 
the limit. So strings can be up to 64K 
characters long. 


MORE DEBUGGING. 


We pioneered breakpoints and immedi- 
ate-mode capability in a compiled 
BASIC environment. 

Now we've added utilities that allow 
you to visually TRACE through your 
program, and check the values of 
selected variables. Or print a cross- 
referenced listing. 


Circle no. 344 on reader service card. 











And new compiler options like NO LET 
and NO TYPO let you decide how 
strictly you want your variable names 
checked. 


MORE INNOVATION. 


True BASIC has always had features 
like full-screen, scrollable editing. 
Block copy and block moves. And 
global search and replace. 


Now, 2.0 keeps you on the leading edge 
of editing and file-emanagement technol- 
ogy. With SCRIPT, to write the True 
BASIC equivalent of a DOS batch file. 
ECHO, to transfer your output to disk or 
printer. And ALIAS, to give you and 
your programs a better roadmap to your 
subdirectories. 


There's also Version 2.0 of the Devel- 
oper’s Toolkit. With support for DOS 
interrupts. Pop-up menus. Even 
designer fonts. 


And remember: your programs are por- 
table to the other machines we support: 
the Apple Macintosh” and Commodore 
Amiga® 


MORE SUPPORT. 


Call your local dealer. Call us TOLL- 
FREE at 1-800-TR-BASIC. Or write to: 
True BASIC, Inc., 39 South Main Street, 
Hanover, NH 03755. We'll send you 
more information. Including a free 
demo disk. 


See for yourself. That we're still true to 
our basic idea. 


™ 


inc. 


True BASIC Language System is a trademark of True 
Basic, Inc. Macintosh is a trademark licensed to Apple 
Computer Inc. Amiga is a registered trademark of 
Commodore-Amiga, Inc. IBM is a registered trademark 
of International Business Machines. 
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THE ULTIMATE IN COMPACT CP/M 
COMPATIBLE COMPUTERS 


BY: Wife lol=m Ore) gele) ¢-lilela) 

= OFM =10) Gal s}s)0  ) 
94 Commerce Drive 

Buellton, CA 93427 

((s{Ole) Metetemelelers) 
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FTL MODULA-2 $49.95 


The most programming power 
for your money 
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SCIENTIFIC/ENGINEERING 


GRAPHICS TOOLS 
for the IBM PC 


FORTRAN/Pascal tools: GRAFMATIC (screen graphics) 
and PLOTMATIC (pen plotter driver) 


These packages provide 2D and 3D plotting capabilities 
for programmers writing in a variety of FORTRAN/Pascal 
environments. We support MS, R-M and IBM FORTRAN 
and more. PLOTMATIC supports HP or Houston Instru- 
ment plotters. 


Don’t want to program? Just ask for OMNIPLOT! Menu- 
driven, fully documented integrated scientific graphics. 
Write or call for complete information and ordering in- 


structions. 
GRAFMATIC — PLOTMATIC — OMNIPLOT [S|] & [P] 





CONCENTRATION 


Microcompatibles, 301 Prelude Drive, Silver Spring, MD 20901 
(301) 593-0683 
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MasterCard and VISA welcome. 


= Please add $3.00 Shipping and Handling. 
= Cy Calif. residents please add 6% sales tax. 
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development system, including com- 
piler, linker, integral editor, library 
source, assembler, and support. MS- 
DOS libraries include ‘peek and poke” 
throughout DOS memory, low-level 
DOS calls, and a debugger. The compa- 
ny also sells the editor’s source code, 
which is written almost entirely in 
Modula-2, for $39.95. FTL Modula-2 
costs $49.95. A package of FTL Modula- 
2 and the editor’s source code costs 
$79.95. Reader Service No. 25. 
Workman & Associates 

1925 East Mountain St. 

Pasadena, CA 91104 

(818) 791-7979 


Tools 

PC/Assembler from Computer Sys- 
tems Documentation is an interac- 
tive syntax-checking assembler for 
the Intel 80xx, 801xx, and 802xx and 
the NEC V20/30 processors. PC/As- 
sembler is used to write assembler 
subprograms that can be invoked 
from a high-level language. It is not 
copy-protected and costs $99. Reader 
Service No. 26. 

Computer Systems Documentation 
P.O. Box 5478 

Albuquerque, NM 87115 


TurboMAGIC, a code generator for 
Turbo Pascal programmers, is now 
available from Sophisticated Soft- 
ware. TurboMAGIC includes a full- 
featured editor and the ability to cre- 
ate both pop-up and pull-down 
menu systems. The form image can 
be stored either as a typed constant 
or in a picture file. The software runs 
on the IBM, PC/XT, PC/AT, or compati- 
ble computers with 256K and is not 
copy-protected. It costs $99. Reader 
Service No. 27. 

Sophisticated Software 

6586 Old Shell Rd. 

Mobile, AL 36608 

(205) 342-7026 


Expanding the IBM PC 

Fort’s Software has released NVRD, 
the Non-Volatile RAM-Disk, a soft- 
ware package designed to work with 
expanded memory hardware or 
with the company’s Virtual Expand- 
ed Memory Manager (V-EMM). Com- 
bined with V-EMM hardware, NVRD 
provides the improved performance 
of a RAM disk with the nonvolatility 
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of a hard disk. It runs on IBM PCs and 
compatibles with DOS 2.0—3.2, 192K 
RAM, a fixed-disk drive and fixed-disk 
adapter, and an EMS or V-EMM board. 
NVRDis available on its own for $49.95 
or bundled with the V-EMM for 
$119.90. Reader Service No. 28. 

Fort’s Software 

P.O. Box 396 

Manhatten, KS 66502 

(913) 537-2897 


SOTA Technology has announced 
MotherCard 5.0, a plug-in card for 
IBM PC/XTs and compatibles that of- 
fers full AT-compatibility with all 
software written for the 80286, in- 


off the Latest 


Evolution of C 





the C lanquage 


FEATURES: 


and operators 


of data structures 
> Data abstraction 


conversion 





The only commercially-available C++ 
customized to operate on PC’s, micros, 
minis, and mainframes with popular C 


compilers, including: 


VAX C GREEN HILLS 
LATTICE WIZARD 
MICROSOFT WHITESMITH’S 


7, BAYA is) (O)p RO) ny. ¢ oF 


60 Aberdeen Ave., Cambridge, MA 02138 





The Wrapping ts 


C++ 


Designer C++ is OASYS’ 
full implementation of 
AT&T’s enhancements to 


> Optional strong type checking 
> Overloading of function names 


> Optional guaranteed initialization 


> Dynamic typing (virtual functions) 
> Optional user-defined implicit type 


cluding protected mode operating 
systems. The on-board 1-megabyte 
RAM is all usable, and a DaughterCard 
connector is included that allows 
memory expansion to 16 megabytes. 
MotherCard 5.0 sells for $995. Reader 
Service No. 29. 

SOTA Technology 

657 N. Pastoria Blvd. 

Sunnyvale, CA 94086 

(408) 245-3366 


An 8-megabyte memory expansion 
board for the IBM RT/PC is available 
from Tall Tree Systems. The JRAM- 
RT is a 32-bit board that makes use of 
the host motherboard’s hardware to 








e Works with your present 
C Compiler 

e Functions as a Pre- 
processor Translator — 
handles regular C code 
with no changes 

e Type-checking and other 
features are optional — 
you can turn them off 

e Already thousands of 
users at commercial sites 

e Complete documenta- 
tion: C++ A User’s Guide 
by Bjarne Stroustrup of 
AT&T (Addison-Wesley, 
1986) 








We Specialize in: Cross/Native Com- 
pilers: C, Pascal, FORTRAN, Ada, LISP — 
Assemblers/Linkers — Symbolic Debug- 
ers — Simulators — Interpreters — Pro- 
ilers — QA Tools — Design Tools — Comm. 
Tools, — OS Kernels — Editors — VAX & PC 
Attached Processors and more 
We iy par 680xx, 80x86, 320xx, 68xx, 
80xx; Clipper, and dozens more 


(617) 491-4180 


Designer C++is a joint trademark of XEL, Inc. and Glockenspiel, Ltd of Dublin, Ada is a trademark of the U.S. Government (AJPO) 
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find and correct memory errors. It 
sells for $3,995. Reader Service No. 30. 
Tall Tree Systems 

1120 San Antonio Rd. 

Palo Alto, CA 94303 

(415) 964-1980 


Micro Enhancer from Everex Sys- 
tems is a 5-inch short card that makes 
EGA capabilities available for users 
with limited space in their IBM PC/XTs 
or compatibles. The board provides 
640 X 350-pixel resolution graphics in 


16 colors from a palette of 64 colors 
and is 100 percent compatible with 
the IBM Enhanced Graphics Adapter. 
To simplify using the board, Everex 
also supplies its EGMODE menu-driven 
software. Micro Enhancer costs $499. 
Reader Service No. 31. 

Everex Systems Inc. 

48431 Mimont Dr. 

Fremont, CA 94538 

(415) 498-1111 


Personal Computer’ Support 
Groups half-slot speed-up board 
called the Breakthru 286 replaces the 
CPU of an IBM PC or PC/XT with an 


Changing Your 
Address? 
We’d Like to Know. 





To change your address, attach your 

address label from the cover of the mag- 

azine to this coupon and indicate your 
new address below. 


affix label here 
Name 
Address 


City 
Mail To: 


Dr. Dobb’s Journal, P.O. Box 27809, San Diego, CA 


92128 
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Ant #2. 


olate = Zip 


80286 microprocessor faster than the 
one found in the 6-MHz IBM PC/AT. 
PCSG claims that the Breakthru 286 
can beat the performance of other 
caching speed-up boards and that 
better performance can be expected 
in nearly all applications. The 
Breakthru 286 costs $595. Reader Ser- 
vice No. 32. 

Personal Computer Support Group 
11035 Harry Hines Blvd., #207 

Dallas, TX 75229 

(214) 351-0564 


For the Mac 

Datacopy Corp. has released two 
scanning systems—the Jet Reader 
and the Model 730—that produce 
high-resolution images containing 
300 dots per square inch. Once 
scanned, images can be formatted for 
insertion into documents produced 
with a Macintosh desktop-publishing 
program. The company’s MacImage 
software lets you control the scanner 
and manage, print, and view image 
files. The JetReader with MacImage 
software is priced at $2,250; the Mod- 
el 730 sells for $3,250. Reader Service 


— 


ming language. 


sl 


ALL THREE PRODUCTS FOR — 


For more information call or write: 


SOMfOCUS 


Credit cards accepted. 


No. 33. 

Datacopy Corp. 

1215 Terra Bella Ave. 
Mountain View, CA 94043 
(415) 965-7900 


THINK Technologies has introduced 
Lightspeed Pascal, a full ANSI Pascal. 
Lightspeed Pascal supports the Mac- 
intosh Toolbox and operating system 
and Apple’s SANE extended numerics 
software. Compatible with Macin- 
tosh Pascal and Lisa Pascal, it runs on 
Macintosh computers with 512K RAM 
or more and is not copy-protected. It 
costs $125. Reader Service No. 34. 
THINK Technologies Inc. 

420 Bedford St. 

Lexington, MA 02173 

(617) 863-5590 


Miscellaneous 

Dynapro Systems has announced 
chronO$S, a real-time multitasking op- 
erating system that lets you use 
standard DOS programming tools to 
write real-time applications. Source 
code is included for the console and 
sound generator drivers, language in- 





C-PROGRAMMERS 





Fie System Ultility Libraries 


All products are written entirely in K&R C. Source 
code inchided, No Royalties, Powerful & Portable. 


BTree Library 


® High speed random and sequential access. 
® Multiple keys per data file with up to 16 million records per file. 
*® Duplicate keys, variable length data records. 


ISAM Driver * 


® Greatly speeds application development. 
© Combines ease of use of database manager with flexibility of program- 


752° 


40.0o 


® Supports multi key files and dynamic index definition. 
® Very easy to use. 


® Patterned after the UNIX utility. 
® Works for programs written in every ja ‘ 
¢ Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs Included. 


149.90 


1343 Stanbury Drive 
Oakville, Ontario, Canada 
L6L-2J55 

(416) 825-0903 





Dealer inquiries invited. 
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PC/VI 


Full Screen Editor for MS-DOS (PC-DOS) 


Looking for an Ultra-Powerful Full-Screen editor for 
your MS-DOS or PC-DOS system? Are you looking for an 
editor FULLY COMPATIBLE with the UNIX* VI editor. 
Are you looking for an editor which not only runs on 
IBM-PC’s and compatibles, but ANY MS-DOS system? Are 
you looking for an editor which provides power and flexi- 
bility for both programming and text editing? If you are, 
then look no further because PC/VI IS HERE! 


The following is only a hint of the power behind PC/VI: 
English-like syntax is command mode, mnemonic control 
sequences in visual mode; full undo capability; deletions, 
changes and cursor positioning on character, word, line, 


sentence, paragraph or global basis; editing of files larger 
than available memory; powerful pattern matching capa- 
bility for searches and substitutions; location marking; 
joining multiple lines; auto-indentation; word abbreviations 
and MUCH, MUCH MORE! 


The PC/VI editor is available for IBM-PC’s and generic 
MS-DOS based systems for only $149. For more infor- 
mation call or write: 

Custom Software Systems 
P.O. Box 678 

Natick, MA 01760 
617-653-2555 

The UNIX community has been using the VI editor for 
years. Now you can run an implementation of the same 
editor under MS-DOS. Don’t miss out on the power of 
PC/VI! 


*UNIX is a trademark of AT&T Bell Laboratories. 
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HEXTOOLS' 


Hex File Utilities for the 
Ssoftware/Hardware Developer 


HEXTOOLS™ assists you in: 
|] Hex file offsets & partitioning 
|] Hex file concatenation 
_] Optional fill data 
|] Change load & execute address 
[| ROM/EPROM checksums 
HEXTOOLS solves the hex file dilemma 
experienced by most developers. 


Hex file too long or too short? Wrong load address? 
Need special fill data or a checksum at a specific 
location in a ROM or EPROM? HEXTOOLS can 
handle it all and more. 


Available in INTEL hex format — PCDOS/MSDOS 


Other formats available soon 


— $49.95 — 


MC/VISA 
... LEADERS IN PRODUCTIVITY ... 


Circuit 
Research Nashua, NH 03063 
Corporation 603-880-4000 


4 Townsend West-Suite #3 
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lQCLISP 


More Common Lisp features in less space 
for less money than any other IBM-PC lisp. 


m MSDOS portable 

@ Bignums, 8087 support 

@ Multidimensional arrays 

@ Full Common Lisp package system 

@ Full set of control primitives. 

@ Keyword parameters, macros 

@ Save/restore full environments for speed 


m@ STEP, TRACE, BREAK, DEBUG, ADVISE, 
APROPOS 


@ Roll-out frees space for invoking MSDOS 
commands 


lQCLISP PACKAGE $300. 





fa Integral Quality 





P.O. Box 31970 
Seattle, Washington 98103 
(206) 527-2918 | 


lQLISP 


Now with a compiler. 


m Compiler comes with source 


@ Compiler cuts execution time 50-75%, 
program size 60-80% 


@ Multidimensional arrays 

@ Floating point, bignums, 8087 support 
@ Macros 

@ Color graphics 

@ Multiple display windows 

mw Assembly language interface 

@ Available for IBM PC or TI-PRO 


lQLISP PACKAGE $270. 


INCLUDES COMPILER 


@ VISA and Mastercard accepted 
@ Generous update policy 
@ Attractive educational license 
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terfaces, and demo _ program. 
ChronOS runs on the IBM PC/XT or 
PC/AT and is tailored specifically for 
the iAPX86 microprocessor line. A 
U.S. site license costs $1,995, and a Ca- 
nadian site license costs $2,495. Read- 
er Service No. 35. 

Dynapro Systems Inc. 

1000— 1200 W. 73rd Ave. 

Vancouver, B.C. 

Canada 

(604) 263-2638 


Alligator Transforms has released 
Prime Factor FFT, a fast Fourier trans- 
form subroutine library for the IBM 


PC, PC/XT, PC/AT, and compatibles 
equipped with an 8087 math co- 
processor. The library can be called 
from any high-level language, and in- 
terface examples are provided in all 
languages. The library includes for- 
ward and inverse FFTs for single- and 
double-precision, floating-point, 
complex number sets. Users are not 
limited to radix2 data set sizes 
Prime Factor FFT sells for $159. 
Reader Service No. 36. 

Alligator Transforms 

P.O. Box 11386 

Costa Mesa, CA 92627 

(714) 662-0660 


Lattice Works 





SCREEN DESIGN AID (SDA) IS 
NOW AVAILABLE FOR RPG II 
PROGRAMMERS 

The Lattice Screen Design Aid 
(SDA) utility helps Lattice RPG II 
programmers create and modify 
display screen formats during the 
development and testing of applica- 
tion programs. Instead of coding S 
and D specifications for the SFGR, 
SDA allows you to build displays 
directly on your PC. When the dis- 
plays on the screen are as you want 
them, SDA creates the SFGR source 
file, the screen format file for the 
RPG program and the skeleton RPG 
program for the WORKSTN file; 
and it can optionally print out a 
source listing. This product now 
joins Lattice Sort/Merge (LSM™) and 
Source Entry Utility (SEU) in sup- 
porting the Lattice RPG II compiler. 
$350.00 





LATTICE ANNOUNCES NEW 
SCIENTIFIC SUBROUTINE 
PACKAGE 

SSP/PC is a library of mathe- 
matical subroutines essential to 
scientific, engineering and statisti- 
cal computations. Comprised of 
more than 145 subroutines callable 
from FORTRAN, Pascal, BASIC and 
C, SSP/PC is as extensive as similar 
packages generally used on main- 
frame computers. The routines are 
very fast and extremely accurate 


&, 
> 





es 


Lattice 


(312)858-7950 TWX 910-291-2190 


and provide extensive error 
diagnostics. The Error Messages 
save the user from inadvertent 
mistakes. Using SSP/PC, scientists 
and engineers can save time by 
freeing themselves from tedious 
and difficult programming. 

SSP/PC functions include: 
34 Elementary Fens, 18 Probability 
and Statistical Fens, 15 Random 
Number Generators, Ei(x), E,(x), 
li(x), Si(x), Ci(x), Fx), wx), BEx,a), 
1,(a,b), erf xX, S(x), C(x), JAZ), Y(x), 
1,(z), K(x), Ai(x), Bi(x), Ai’(x), 
Bi’(x), ber x, bei x, ker, x, kei’ x, 
K(x), E(x), F(p |a), E(e [a), 
N( pla,b), A(a,b, 0), P(z), %"(2), 
P(X), H.(x), L@(x), J@P(x), G.(P,q,x), 
C() (x) and many more. $350.00 





LATTICE NOW OFFERS 
CODE SIFTER 

Code Sifter is a software develop- 
ment tool that enables programmers 
to write faster executing software. 
It produces CPU usage statistics 
that indicate which code sections 
are the heavy CPU users. Using this 
information you can concentrate 
your optimization efforts on the 
areas that are really the bottlenecks 
and ignore the routines that are 
light CPU users. 

A major advantage of Code Sifter 
over other products of this type is 
that it does not require that the user 
have knowledge of the machine 
architecture or assembly language. 
Link map listings are optional. In 
most cases Code Sifter can set up 
the ranges and repeatedly sub- 
divide them automatically, freeing 
the programmer from a lot of 
drudgery. $119.95 


INTERNATIONAL SALES OFFICES: Benelux: Ines Datacom (32) 2-720-51-61 
Japan: Lifeboat, Inc. (03)293-4711 England: Roundhill (0672)54675 
France: SFL (1)46-66-11-55 Germany: Pfotenhaur (49)7841/5058 

Hong Kong: Prima 85258442525 A.I. Soft Korea, Inc. (02)7836372 
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The Model E232-51 is a new in-circuit 
emulator from Signum Systems that 
provides real-time, transparant emu- 
lation for the 8031, 8051, and 8751 mi- 
crocontollers. Connected to an IBM PC 
via the RS-232 interface, Model E232- 
51 features complete debugging facil- 
ities. Along with a command-driven 
user interface, the emulator provides 
users with windowing software and 
mouse support for controlling and 
monitoring program execution. Mod- 
el E232-51 with 64K of overlay pro- 
gram memory is priced at $3,195. 
Reader Service No. 37. 

Signum Systems 

1820 14th St., Ste. 203 

Santa Monica, CA 90404 

(213) 450-6096 


Lang-Allan has announced Version 
2.00 of Bluestreak Plus, its communi- 
cation package for the IBM PC, PC/XT, 
PC/AT, and compatibles. Bluestreak 
Plus is a full-featured software pack- 
age that combines PC-to-PC commu- 
nication and PC-to-mainframe com- 
munication with an _ open- 
architecture format for 
customization and modification at 
any level. The programming inter- 
face allows you to develop applica- 
tions in many popular languages 
such as C, assembly language, Turbo 
Pascal, and dBASE. Bluestreak Plus 
2.00 sells for $89. Reader Service No. 
38. 

Lang-Allan Inc. 

2457 Aloma Ave., Ste. B 

Winter Park, FL 32792 

(305) 677-1539 


Full-function simulation models of 
the Motorola MC68000 and MC68010 
miroprocessors are available from 
Quadtree along with an extensive li- 
brary of models of associated periph- 
erals and an optional graphic micro- 
processor development system. The 
new models are part of Quadtree’s 
Designer's Choice library, a library of 
software simulation models of stand- 
ard, off-the-shelf digital devices. Call 
for prices. Reader Service No. 39. 
Quadtree Software Corp. 

1170 Rt. 22 East 

Bridgewater, NJ 08807 

(201) 725-2272 


A 32-hour C programming course is 
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Introducing 
The Most Important 


Programming Development 
Since The Introduction Of C: 


Exclusively From LIFEBOAT For PC/WS-DOS 


Finally there’s a programming language that 
enhances C, instead of making it obsolete! 
ADVANTAGE C +4, developed by AT&T, is a major 
programming breakthrough. By introducing the 
concept of classes, it enables C programmers to 
use object-oriented programming methods. 
ADVANTAGE C++ gives you greater efficiency, 
flexibility and reliability than ever before—and 
allows you to more productively build large and 
sophisticated applications. 


ADVANTAGE C++ All The Benefits 
Of C Without Its Limitations! 


@ Opens the door to object-oriented program- 
ming. 

@ Allows programs with greater resilience and 
fewer bugs. , 
@ Lets you write reliable, reusable code that is 
easier to understand. 

@ Has many enhancements over C, yet maintains 
full compatibility with existing C programs. 


Advantages ANTAGE C 
Can Gi 


@ Operator Overloading—Allows simple, reliable 
user-designed types. 

@ Function Name Overloading—Simplifies 
function names and argument lists. 

@ Guaranteed Programmed Initialization—En- 
sures automatic initialization of all data objects 
before their use. 

@ Guaranteed Programmed Type Conversion— 
Ensures consistent conversions from one user- 
designed type to another. 

@ Optional Strong Type Checking—Weeds out 
type mismatches at compile time. 
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@ Classes—Similar to structures; provide syntax 
for user-designed data types and encapsulation of 
access functions with data objects. 

@ Data Abstraction— Makes code easily reusable 
and more resilient. 

® Data Hiding—Improves software reliability. 

® Inheritance—Enables generic code written for 
more abstract types such as ‘list’ or ‘windows’ to be 
used by more specific types. 

@ Constant Data Types—Prevent inadvertent 
alteration of fixed values, such as hardware 
addresses. 

@ Reference Data Types—Improve the efficiency 
of argument passing. 

@ Inline Functions— Remove the overhead of 
calling external functions. 

@ Heap Management— Simplifies the use of 
dynamic memory. 


Why be limited to just C...when you can have all 
these pluses! ADVANTAGE C++ includes libraries 
for stream I/O and complex math—and versions 
are now available for Lattice C and Microsoft C. Call 
today to order or to obtain a complete technical 
specification sheet: 7 


1-800-847-7078 
In NY: 914-332-1875 





The Full-Service Source for Programming Software. 
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available on video cassette from 
Berkeley Decision/Systems. The 
course is designed for expert pro- 
grammers who want to learn C or 
people who are familiar with the lan- 
guage and want to learn more about 
it. The course includes a manual and 
more than 40 complete C programs to 
demonstrate the concepts presented 
in the video. A Programmer’s Intro- 
duction to C is available for $400 in VHS 
or Beta formats. Reader Service No. 40. 
Berkeley Decision/Systems 

150 Belvedere Terr. 

Santa Cruz, CA 95062 

(408) 458-0500 


Zoom Telephonics is now shipping 
a 2,400-baud version of its Zoom/Mo- 
dem PC 1200. The new version has 
such additional features as demon di- 
aling, audio input and output ports, 
and a high-speed 16450 UART for as- 
sured compatibility with IBM PC/ATs 
and compatibles. The Zoom/Modem 
PC 1200 can be upgraded to 2,400 
baud with a plug-in board that costs 
$249. The Zoom/Modem PC 2400 ST 


sells for $499, and an XL version with 
more features costs $50 more. Reader 
Service No. 41. 

Zoom Telephonics Inc. 

207 South St. 

Boston, MA 02111 

(617) 423-1072 


Access Associates has introduced 
Alegra, a memory expansion unit de- 
signed to add 512K of external memo- 
ry to the Commodore Amiga. Alegra 
has a small footprint and allows for 
future expansion of up to 2 mega- 
bytes by replacing memory and con- 
figuration devices. The unit supports 
the auto-configuration architecture 
of the Amiga, and power is supplied 
by the computer at the expansion 
connector. Alegra sells for $379. 
Reader Service No. 42. 

Access Associates 

491 Aldo Ave. 

Santa Clara, CA 95054 

(408) 727-8520 


Digitronix has released a low-cost 
Turbo upgrade kit called Veloz that 





brings IBM PC/XTs and compatibles 
up to the speed of a PC/AT. Veloz of- 
fers 100 percent compatibility with 
all major software packages and can 
be run with either the 8088-2 or V20 
with no need to power down or re- 
place the CPU. The price is $98. Read- 
er Service No. 43. 

Digitronix 

2135 Junction Ave. 

Mountain View, CA 94043 

(415) 964-5103 


PAX from Baker & Rabinowitz is a 
real-time multitasking executive for 
the IBM PC. It runs in concert with MS- 
DOS and requires no licensing or in- 
corporation fees. The system kernel 
supports up to 32 concurrent tasks 
and is fully preemptive. The package 
is priced at $149.95. Reader Service 
No. 44. 

Baker & Rabinowitz Inc. 

3869 Kilbourne Ave. 

Cincinnati, OH 45209 

(513) 871-0886 


CodeWorks is a new magazine for 


Two great reasons to buy Turbo Pascal: 
System Builder °99° and Report Builder *75”° 


From the Designer Series by Royal America 







State-Of-The-Art Program Gener- 
ators that automatically build a 
Relational Database system with- 
out coding. Entry level ‘‘coders”’ 
can produce Database systems 
without coding. Developers 
have more flexibility and horse- 
power than any development 
tool on the market. 


Self-documenting program includes 
screen schematics. System Builder 
will generate 2,000 lines of program 
code in approximately 6 seconds. 


OVAL AMERICAN (echtol 





n Technologies. 


Royal American Technologies 
201 Sansome, Suite 202 
San Francisco, CA 94104 


(800) 654-7766 
in California (800) 851-2555 
Ask for Operator 102. 
Please rush me: __ copies of SYSTEM 
BUILDER at $99.95 per copy; —__ copies 
of REPORT BUILDER at $75.00 per copy. 


I've enclosed $5.00 for postage and handling. 
California residents add 6% sales tax. 





Name 


Address 


SYSTEM BUILDER FEATURES: 


* Automatically generates Indented, Structured, Copy Book Source Code 
ready for compiling with Turbo Pascal (no programming needed) 

¢ Paint Application and Menu screens using Keyboard ¢ Screens all use 
In-Line machine code for exceptional speed * 16 Datafiles and 16 Index 
Keys per application ¢ Paint functions include: —Center, copy, move, 
delete, insert or restore a line with one keystroke —Cut and paste blocks 
of text screen to screen — Draw and erase boxes — Access special graphic 
characters and character fill —Go straight from screen to screen — Define 
colors and intensities © Support an unlimited number of memory variables 
° File Recovery Program ® automatically modify existing datafiles 

* Experienced developers can modify the System Builder ¢ Develop sys- 
tems for Floppy or Hard Disk ® Modify System Builder’s output source 
code to include External Procedures, Functions and Inline Code ¢ Easy- 
to-use Interface Program included to access ASCII and Dbase Files 


REPORT BUILDER FEATURES: 


¢ Automatically generates Indented, Structured Source Code ready for 
compiling Turbo Pascal (no programming needed) ® Automatically inter- 


faces to a maximum of 16 Datafiles created with System Builder * Supports 
Global Parameters such as Headings, Footers, Lines Per Page, Print Size 
and Ad Hoc Sorting © Page breaks on Sub-Totals * Reports can also in- 
clude Text Strings, Variables or Computed expressions containing refer- 
ences from up to 16 Datafiles ¢ Use range input screens allow End Users 
to select portions of a report as needed (i.e. specific account ranges can be 
requested) ® Easy-to-use Interface Program included to access dBase Files 





City 
State Bae Tab 


Phone 


Payment: []Check () Money Order () Cashiers 
Check LJAMEX [CLIJVISA () MASTERCARD 


Expiration date 
Card Number 


Signature 


30-Day Money-Back Guarantee. Not copy- 
protected. $10 restocking fee if envelope is opened. 
System Requirements: IBM PC/XT/AT', or similar, with 
minimum 256K RAM, dual floppy drives, or hard disk, 
color or monochrome monitor, MS? or PC DOS! version 
2.0 or later, Turbo Pascal Version 2.0 or later (Normal, 
BCD or 8087 versions). 

'Trademark of International Business Machines Corp. 


~Trademark of Microsoft Corp. 
‘Turbo Pascal is a registered trademark of Borland International. 


VARS, System Integrators and Dealers, let’s 
work together. Head office: (415)397-7500 


“dBASE is a registered trademark of Ashton-Tate. 
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people interested in BASIC program- 
ming under MS-DOS, TRS-DOS, or CP/M. 
Each annual subscription covers all 
six issues of the calendar year and 
costs $24.95. Interested readers can 
write for a free sample issue. Reader 
Service No. 45. 

CodeWorks 

Sample Copy Offer 

3838 South Warner 

Tacoma, WA 98409 


A system modeling tool called Per- 
formance Analysis Tool Box is avail- 
able from Computer Technology 
Associates. The package simulates a 
variety of centralized or distributed 
computer architectures, allowing de- 
signers to investigate broad ranges of 
use patterns in a hypothetical sys- 
tem. It’s $10,000 for the IBM PC. Read- 
er Service No. 46. 

Computer Technology Associates 
7927 Jones Branch Dr., #600W 
McLean, VA 22102 


Microsoft Corp. has announced the 
availability of extensions to the MS- 
DOS operating system that support 
the use of CD ROM disk drives with 
personal computers. The MS-DOS CD 
ROM extension consists of two soft- 
ware modules—a hardware-inde- 
pendent program and an installable 
device driver that must be custom- 
ized by each manufacturer to work 
with its own hardware. Microsoft 
will supply the hardware-indepen- 
dent program—the DOS extension 
that will handle the much higher ca- 
pacity of the CD ROMs—plus a sample 
device driver and documentation. 
With the new software, PCs run- 
ning DOS 3.1 or 3.2 can read data from 
any CD ROM disk that is compatible 
with the High Sierra Group file for- 
mat proposed at the National Com- 
puter Conference in May 1986. Mi- 
crosoft will license these extensions 
directly to CD ROM drive manufactur- 
ers, and they are available only on an 
OEM basis. Reader Service No. 47. 
Microsoft Corp. 
16011 N.E. 36th Way 
P.O. Box 97017 
Redmond, WA 98073-9717 
(206) 882-8080 


Practical Peripherals is now offer- 
ing a stand-alone 1,200-bps modem, 
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the Practical Modem 1200 SA. It is 
fully Hayes-compatible, includes 
auto-dial/auto-answer capabilities, 
supports virtually all communica- 
tions software, and includes an up- 
grade path for a programmable en- 
hancement card. The suggested retail 
price of the modem is $239. Reader 
Service No. 48. 

Practical Peripherals 

31245 La Baya Dr. 

Westlake Village, CA 91362 

(818) 991-8200 


DogStar Software has announced 
subVol, a disk subvolume manager 
that brings PC-DOS- and ProDOs-like 
subdirectories to Apple Pascal DOS. 
SubVol works on any Pascal format- 
ted disk device and allows hard-disk 
users to format directly and install a 
complete set of subvolumes with Ap- 
ple Pascal. 

The program works by attaching 
virtual disk drivers to the unused disk 
units in an Apple Pascal system. The 
virtual disk drivers cause a portion of 





AT LAST, 


A HIGH-QUALITY, 
EASY-TO-USE C COMPILER 
WITHOUT THE HIGH PRICE 


any real disk to behave as though it 
were a volume in itself, including a 
subdirectory plus any files in that 
subvolume. The product runs on Ap- 
ple II computers with Apple Pascal 
(Version 1.1, 1.2, or 1.3). The price is 
$34; with source code it costs $75. 
Reader Service No. 49. 

dogStar Software 

P.O. Box 302 

Bloomington, IN 47402 

(812) 333-5616 


Instant Replay by Nostradamus is a 
demonstration development toolkit 
that generates tutorials, demos, pre- 
sentations, menu systems, and timed 
keyboard macros. It is not copy-pro- 
tected and runs on the IBM PC, PC/XT, 
and PC/AT. The product is priced at 
$89.95. Reader Service No. 50. 
Nostradamus 

5320 South 900 E, Ste. 110 

Salt Lake City, UT 84117 

(801) 261-0769 
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The Eco-C88 C compiler has everything you need for professional program development, 
including: a standard library of over 200 functions, cc and “mini-make”’ utilities, ANSI 
language enhancements (e.g., prototyping, enum, void), and user’s manual. For a 
limited time, we'll even give you a full-screen program editor. Here’s what some 
reviewers are saying about the Eco-C88 C Compiler: 


“Eco-C is the first compiler reviewed that has clearly begun implementing the ANSI 
standard... Eco-C performed well on all the benchmarks, generating code that was 
quite comparable to that of compilers 10 times as costly.” 

Christopher Skelly, Computer Language, Feb., 1986 


“The (cc) driver program is another strength... This compiler does handle syntax 
errors much better than average - no avalanche of spurious messages here.” 


William Hunt, PC Tech Journal, Jan., 1986 


“Eco-C88 is a high-quality package... one of the fastest... convenient to use...” 


Dr. David Clark, Byte, Jan., 1986 


“Eco-C is definitely a bargain... it includes both the compiler and an excellent 


Turbo-style editor.” 


Gary Entsminger, Micro Cornucopia, April-May, 1986 


The complete compiler package has everything you need, all for the low price of only 
$59.95. Also ask about our support products, too! 


1-800-952-0472 (orders) 
1-317-255-6476 (info) 


AAAE RICAN 
MasterCard VISA 2 
[ ml 


Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 
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ep obaosking 
= Powerful cee Tools 
-™ Comprehensive Module Library 
® Available for the PC and the VAX 
Use LOGITECH MODULA-2/86 to 
decrease your overall development cycle 
and produce more reliable, more 
maintainable code. 








/8E at a saving of: near rly : 
our usual low prices! We're - 
ering a complete tool set including 
our compiler with 8087 support (for u 
with or without an 8087),our Turbo © 
to Modula-2/86 Translator,Run Time _ 
Debugger, and Utilities in one holiday 
$49 package at a special price! 











LOGITECH | Build windows into your programs. Features 





. virtual screens, color support, overlapping 
MODU LA-2/86 oo $89 windows and a variety of borders. I want to step up to 
Includes Editor, Run Time System, Linker, YES LOGITECH MODULA-2/86! 


8087 Software Emulation, Binary Coded 


sea Here’s the configuration I'd like: 
Decimal (BCD) Module, Logitech’scom- 7 MAKE UTILITY $29 C1 Special Holiday Package $199 












































prehensive library, Utility to generate LC Logitech Modula-2/86 $89 
standard EXE files. AND more! PIS UTOS ONE I Denon ies an auc et ny C1 with 8087 support $129 
selects modules affected by code changes 
to minimize recompilation and relinking De eee re 
: : L) Turbo to Modula Translator $49 
ae LOGITECH MODULA-2/86 CJ Run Time Debugger $69 
~ With 8087 Support == $129: wy CROSSRUNTIME —_ $199. =D Utilities Package ag 
| “/ Debugger and ROM Package = ada bears a 
oe LOGITECH MODULA-2 /86 Still available at an introductory price! CO Make Utility $29 
=<) PLUS — --- $189 1 ROM Package $199 
aC ith 512K of RAM Add $6.50 for shipping and handling. Calif. 
: aes eget eas SS pa 0 TURBO PASCAL to $49 residents add applicable sales tax. Prices valid 
2 he compilation gos. by 50%. MODUL A-2 TR ANSL ATOR in U.S. only. 

“Turbo Pascal... is avery good system. Total Enclosed $53 ee 

» RUN TIME DEBUGGER But don't make the mistake of trying Cl Visa 0 MasterCard 0 Check Enclosed 

28 (Source level!) = 369 to use it for large programs.’ 
/ The ultimate professional’s tool! Display Niklaus Wirth* Card Number Expiration Date 
source, data, call chain and raw memory. Our Translator makes it even easier for = 
_ Set break points, yarabics, ove bugs | Turbousers tostep up to Modula-2/86. Cote. 
_ in your es It changes your Turbo source code ns 
into Modula-2/86 source, solves all the 
incompatibilities, and translates the Adsineds 
function calls of Turbo into Modula-2/86 
_ | procedures. Implements the complete City State Zip 
the _ Turbo libraries! | 
ae — | Phone 
Call for information about our VAX/VMS sf LO) GC a EC L] 
version, Site License -University Discounts,Dealer _ AD 
- Distributor Pee aS - his 
Monev] gitech, Inc. 





805 Veterans Blvd. 
aS plac a Redwood City, CA 94063 
moder: — Ad Soe ee Tel: 415-365-9852 

et 2 In Europe: 
Logitech SA, Switzerland 
Tel: 41-21-879656 


In Italy: Tel: 39-2-215-5622 
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GMX Micro-20 


68020 


Single-Board Computer 


Mainframe CPU Performance 
on a 5.75” x 8.8” Board 


(benchmark results available on request) 





$2565 12.5 MHz Version 
Quantity Discounts Available 
Features 


¢ 32-Bit MC68020 Processor (12.5, 16.67, or 
20MHZ) 

¢ MC68881 Floating-point coprocessor (optional) 

e 2 Megabytes of 32-bit wide, high-speed RAM 

e 4 RS-232 Serial 1/0 Ports (expandable to 36) 

e 8-bit Parallel 1/0 Port (‘Centronics’ compatible) 

e Time-of-Day Clock w/battery backup 

e 16-bit 1/0 Expansion Bus 

e Up to 256 Kbytes of 32-bit wide EPROM 

e Floppy Disk Controller for two 5%’’ drives 

e SASI Intelligent Peripheral Interface (SCSI subset) 

e Mounts directly on a 5%’’ Disk Drive 

© Optional Boards Include Arcnet, Prototyping, |/0 
Bus Adapter, 60 line Parallel 1/0, RS-422/485 


Software 
Included: 


e GMX Version of Motorola’s 020Bug Debugger 
with up/download, breakpoint, trace, single- 
step, and assembler/disassembler capabilities 

© Comprehensive Hardware Diagnostics 

Optional: 

UNIX™-like Multi-user/Multi-tasking 
Disk Operating Systems 
© 0S-9/68000™ (Real-time and PROMable) 
e UniFLEX™ 
Programming Languages and Application 
Software 


© BASIC, C, PASCAL, ABSOFT FORTRAN, COBOL 
and ASSEMBLER 

e Spreadsheet, Data Base Management, and 
Word Processing 
COMPLETE EVALUATION SYSTEMS AVAILABLE 


CmnxX'- 
1337 West 37th Place 
Chicago, IL 60609 


(312) 927-5510 © TWX 910-221-4055 
State-of-the-Art Computers 
Since 1975 
Circle no. 311 on reader service card. 
151 


FORUM 





es, I was kidding about BASIC in 

November. BASIC, on the other 
hand, seems to be getting serious, 
with such features as advanced struc- 
ture constructs, new data types, la- 
bels for branching, internal and ex- 
ternal subroutines, multiline and 
decision-making functions, recur- 
sion, libraries, modules, better file 
I/O, low-level and DOS access, sophis- 
ticated string manipulation, and ad- 
vances in portability and standard- 
ization. And now that Borland is 
bringing out a Turbo BASIC, competi- 
tion may hasten the maturation 
process. 

Granted that the Turbo Pascal-Tur- 
bo BASIC-QuickBASIC type of rapid-in- 
teraction compiler is not a reasonable 
substitute for C and assembly lan- 
guage in a major software develop- 
ment task, it does seem to be finding a 
place in certain kinds and stages of 
development. The fact that both Bor- 
land. and Microsoft have interactive C 
compilers in the works suggests that 
they think so—it’s hard to believe 
that they expect to sell C to Sunday- 
afternoon programmers. But it’s 
more significant that there seems to 
be a growing interest in enlarging the 
programmer's toolkit, offering more 
options in development environ- 
ments, and offering tools that make 
the programmer more productive 
and efficient. 


Good programming is often artful. 
Any engineering discipline is like art 
in. that both bring new things into the 
world and rely on skill and serendip- 
ity and unlike art in being more con- 
cerned with result than with process. 
In fact, one goal of engineering is to 
refine processes, automating por- 
tions in order to free the engineer to 
be artful at another level. Does soft- 
ware development do this? 

If not, it should. I recently reread 
Robert Heinlein’s The Door into Sum- 
mer and was struck by how convinc- 
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irigly and appealingly Heinlein por- 
trayed the engineer as an artist 
whose very art provides the means to 
improve his brush. If software devel- 
opment really is an engineering disci- 
pline, it needs more Waldoes and 
Drafting Dans, more tools to automate 
the repetitive processes. 

John Backus does not believe that 
programming is an engineering disci- 
pline yet, arguing that it is still too 
much an art. (See “From Function 
Level Semantics to Program Trans- 
formation and Optimization,’ Lec- 
ture Notes in Computer Science 185 
(1982].) Solving the software crisis, he 
maintains, requires that it become an 
engineering discipline. 


“QM Parallel processing is the wave 
448% of the future, right? 

That was the gist of Gordon Bell’s 
keynote address at the Fall Joint Com- 
puter Conference in Dallas in Novem- 
ber. The promise of parallelism may 
have been overstated in some areas. 
Two former advocates of parallel de- 
sign for database machines, Haran 
Boral of the Israel Institute of Tech- 
nology and David DeWitt of the Uni- 
versity of Wisconsin at Madison, 
have come to believe that we should 
not build database machines that at- 
tempt to maximize throughput via 
massive parallelism. The problem, 
they contend, is that I/O bandwidth 
per gigabyte of storage is decreasing 
rapidly and that it is the I/O band- 
width issue that will be the bottle- 
neck in database machines. ‘‘Unless 
mechanisms for increasing the band- 
width of mass storage devices are 





found, highly parallel database ma- 
chines are doomed to extinction,” 
they conclude in “Database Ma- 
chines: An Idea Whose Time has Pas- 


sed?’’(Database Machines, H. O. Lei- 
lich and M. Missikoff, eds. (Berlin: 
Springer-Verlag, 1983)). = 


Those of you who live in California 
may have discerned a bit of chauvin- 
ism in Massachusetts’ claiming to be 
the Software Capital of the country. 
Those of you who do not live in Cali- 
fornia probably detected even more 
chauvinism in the recent passage of a 
ballot proposition making English 
California’s state language. No doubt 
the California legislature will soon be 
turning arroyos and mesas into 
gulches and hills just as the French, 
who invented chauvinism, have for 
years been kicking Americanisms 
out of la langue Frangaise. 

My cousin Corbett is cursing what 
he calls “egotistical linguistic chau- | 
vinism. He had worked hard on an 
alternative proposition that he thinks 
is much more appropriate because it 
actually addresses a real problem. 
Unfortunately, it did not get on the 
ballot in 1986, but Corbett plans to be 
more successful in 1988 and is start- 
ing to organize now. His plan is to re- 
place English with C as California’s 
language, and he invites your partici- 
pation. C, he points out, is capable of 
expressing anything anyone could 
ever need to express, and the time 
has come for fanatical supporters of 
minority languages to put aside their 
pride, accept the inevitable, and end 
the Babel of incommensurable dia- 
lects once and for all. 

‘Des egos, et encore des egos.’’—Ed 
Faber, in Silicon Valley, the French 
edition of Fire in the Valley by Paul 


Freiberger and me. 


Michael Swaine 
editor-in-chief 
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One language supports this community. 
That language is Pascal-2, now on the 
PC and producing the fastest, most 
compact code available. For the 
professional programmer, imagine what 
Vole mer-lake(emUitamialicn ele\u (16 

® Cut execution time by 20% to 200% 

® Transport MS-DOS programs to VAX, 
PDP11, and 68000 machines with only 
minor adjustments !) Cut executable 
program size by up to 50% © Use all of 
DOS-addressable memory through 
efficient large-memory model — Speed 

} error correction and save development 
Ulaamrelcelelarem (iaatsm7itamsve) elaltcitersl(cle mace) s 
checking and reporting Find and fix 
logical errors with the interactive source- 
level debugger ™ Access DOS services 
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AT LAST THE PERFORMANCE I/S PORTABLE 


The following are trademarks: Oregon Software, Pascal-2, Oregon Software, Inc.; IBM, PC-AT, PC-DOS International Business Machines Corporation; Intel, Intel Corporation; 
MS, Microsoft Corp.; TURBO Pascal, Borland International, Inc.; BRIEF, UnderWare Corp.; PDP, VAX, Digital Equipment Corp. 


TALK OF THE TOWN 


and network files © Call Microsoft 
FORTRAN, C, Pascal, and assembler 

™ Upgrade from TURBO Pascal with 
compatible strings, equivalent procedures 
and access to TURBO graphics. 

Plus! 

= Intel CEL87 mathematical library for 
scientific computing = A special interface 
between Pascal-2 and the programmable 
BRIEF text editor (editor optional). 

" Certified ISO standard Level 1. 
Dramatically improve your productivity 
and introduce your PC software 

to the VAX next door. 

Call or write OREGON SOFTWARE, INC. 
6915 SW Macadam Avenue, 

se) a t= l8\e A @) me MCN Aa to dm (51010) elo feyt-a 0 

TWX: 910-464-4779 FAX: (503) 245-8449 
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Why more than half a million 
people are using Turbo Pascal 


B ecause Turbo Pascalis 
faster than any other Pascal 
compiler—it’s become the 
industry standard. And 
because Turbo Pascal is 
backed by a complete range 
of “tool boxes” that give 

you most of the program- 
ming tools you'll ever need. 


The Turbo Pascal family is 
never static, but is continuously 
expanding, with new products 
like Turbo Editor Toolbox and 
Turbo Gameworks. 


of the 
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The secret of software success 
is not merely low price, but top 
quality allied with complete doc- 
umentation, like our 400-page 
reference manual. 

All of which are some of 
the reasons why Turbo Pascal 
is clearly the leader, and the 
recipient of awards like PC 
Week's “Product of the Year” 
and PC Magazine's “Award for 
Technical Excellence.” 


ye! TAT" A 
-''” DYNAMITE DEAL! 
“Turbo 'N Tutor 

Turbo Pascal and Turbo Tutor for 

_ only $125.00. You save nearly 

$15.00, and have everything you 
need to get up and go with 

_ Turbo Pascal! 











A whole family of tools 
Success breeds success, s0 

the Turbo Pascal family has flour- 

ished. Your choices now include: 


(J Turbo Pascal 3.0 combines 
the fastest Pascal compiler with 
an integrated development 
environment, and 8087 math 
co-processor support and Binary 
Coded Decimals. 


CI Turbo Database Toolbox 

a, perfect complement to Turbo 
Pascal. It includes a complete 
library of Pascal procedures that 
allows you to search and sort 
data and build powerful database 
applications. 

(] Turbo Graphix Toolbox 
includes a library of graphics 
routines for Turbo Pascal pro- 
grams. Lets even beginning 


programmers create high- 
resolution graphics with an IBM,® 


ye! Amazing value! Turbo 
Editor Toolbox includes 
MicroStar, a full-blown editor 
that also does windows! You 
get ready-to-compile source code and 
a 200-page manual that tells you how 
to integrate the editor procedures 
and functions into your programs. 


cw! Turbo GameWorks 

N gives you the games you 
can play, write, rewrite, bend 
and amend! Turbo GameWorks 
reveals the secrets and the strategies of 
game design. You're given source code, 
a 200-page manual, and the insight 
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Borland products include Turbo Prolog; Turbo Pascal Turbo Pascal for the Mac; Turbo Tutor; Turbo Editor Toolbox: Turbo Database 

Toolbox; Turbo Graphix Toolbox; Turbo GameWorks: Turbo Lightning; Lightning Word Wizard; Reflex: The Analyst; Reflex for the Mac: 
Reflex Workshop; SideKick; SideKick for the Mac: Traveling SideKick; and SuperKey—all of which are trademarks or registered trade 
of Borland International, inc. or Borland/Analytica, Inc. Traveling SideKick is not in any way associated with Travel 


Software, Inc. of Seattle, Washington. 


CP/M-80 is a registered trademark of Digital Research, Inc. MS-DOS is a registered trademark of Microsoft Corp. IBM is a registered 


trademark of International Business Machines Corp. Hercules is a trademark of Hercules Computer Technology. 


Copyright 1986 Borland International. BI-1082 
Circle no. 161 on reader service card. 


BORLAND 4585 SCOTTS VALLEY DRIVE 


SCOTTS VALLEY, CA 95066 
(408) 438-8400 TELEX: 172373 


@ Turbo Pascal® 3.0 
with 8087 and BCD 


@ Turbo Database 
Toolbox” 


@ Turbo Graphix 
Toolbox ®* 


@ Turbo Tutor® 2.0 


@ Turbo Editor 
Toolbox™ 


@ Turbo GameWorks® 


Hercules,” or compatible graph- 
ics adapter. Does complex busi- 
ness graphics, easy windowing, 
and stores screen images to 
memory. 


} Turbo Tutor 2.0 teaches you 
step-by-step how to use Turbo 
Pascal, with commented source 
code for all program examples 
on diskette. 


An offer you can’t refuse 


You can save $119.75 when 
you choose the Turbo Jumbo 
Pack. Six different Turbo Pascal 
products for only $299.96. 

You get Turbo Pascal 3.0 and 
Turbo Editor Toolbox and Turbo 
Tutor 8.0 and Turbo Graphix 
Toolbox and Turbo GameWorks 
and Turbo Database Toolbox! 

So act now—rush to your 
dealer or call us today! 


Also includes MicroStar, a complete 
editor with full windowing capabilities. 
(You could pay $100.00 or more for a 
program like MicroStar, but you get it 
free as part of our Turbo Editor Toolbox.) 
You can also use Turbo Editor (which of 
course integrates with Turbo Lightning °) 
to build your own word processor! 


needed to write and customize your 
Own irresistible games. 

Also includes ready-to-play Chess, 
Bridge, and Go-Moku—an ancient 
Japanese game that can 
reality for hours on end 














a | Prices include shipping to all US cities. 
: ia Carefully describe your computer system: 
E Mine is: — 8-bit — 16-bit 


B My computer's name and model is: 


a The disk size | use is: 0 3%" O 5%" 08" 


a Payment: VISA MC Money Order Check 
- Credit card expiration date —__/_ 
fz Card # | | | 
7 TP11 
Name 
; Shipping Address: 

Ri State: Zip: —_ 

Telephone: 


| g CODs and purchase orders WILL NOT be accepted by Borland. 





























a VE S | | want LJ 
t e the best! @ 
i To order by phone, ie 
-Hsoorfora dealer nearest you, 
'E call (800) 255-8008 © 
ft in CA call (800) 742-1133 8g 
| a Copies Product Price Totals 
FB — ttoPascars.ow/s0s7 aaco”* $ 99.95 § 
FB tut Pascal tr cPm-80 69.95 $ 
ie —— Turbo Database Toolbox 69.95 $ 
Bite Graphix Toolbox* 69.95 $ 
ie —— Turbo Tutor 2.0 39:99 $a 
a _— Turbo Editor Toolbox” 69.95 $ 
Gi ____ Turbo GameWorks™ 69.95 $ 
U —— Turbo Pascal & Turbo Tutor 125.00 $ 
- — Turbo Jumbo Pack* 299.95 $ 
Outside USA add $10 per copy 
CA and MA res. add sales tax $ 
: 2 Amount enclosed $ 





/use: __ PC-DOS __MS-DOS — CP/M-80 __ CP/M-86 


Outside USA make payment by bank draft, payable in US dollars & 
drawn on a US bank. B 


NOT COPY PROTECTED 


TE s60-pay money-eack Guarantee 6= 


If within 60 days of purchase this product does not perform a 


a qj in accordance with our claims, call our custorner service 


department and we will gladly arrange a refund. el 


. ia All prices are suggested list prices and are subject to change i 


without notice. 


Minimum System Requirements: 
Turbo GameWorks, Turbo Graphix Toolbox, Turbo Tutor, & 
Turbo Editor Toolbox—192K. All other products, 128K. 


“IBM PC, PCijt, AT, XT, and true compatibles. 
x* P 
16-bit only. 


